R = GetAsyncKeyState(nVirtKeyCode)
    If (lR And &amp;H8000&amp;) = &amp;H8000&amp; Then
        pbKeyIsPressed = True
    End If
End Function

Private Sub pGetHiWordLoWord( _
        ByVal lValue As Long, _
        ByRef lHiWord As Long, _
        ByRef lLoWord As Long _
    )
    lHiWord = lValue \ &amp;H10000
    lLoWord = (lValue And &amp;HFFFF&amp;)
End Sub

Private Sub pResize(ByVal lW As Long, ByVal lH As Long)
   If Not (m_hWnd = 0) Then
      If (m_bAllowChangeFileName) Then
         SetWindowPos 