www.pudn.com > o021_viewpw.zip > Module1.bas

Attribute VB_Name = "Module1" 
Option Explicit 
 
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 
Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long 
Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long 
Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long 
Declare Function GetLastError Lib "kernel32" () As Long 
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long 
Declare Function ReleaseCapture Lib "user32" () As Long 
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long 
 
Public Const WM_GETTEXT = &HD 
Type POINTAPI 
    x As Long 
    y As Long 
End Type