module1.bas

销售合同的咚咚

Attribute VB_Name = "Module1"
'Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'Public Type POINTAPI
'X As Long
'Y As Long
'End Type
'Public Oldx As Long
'Public Oldy As Long
'Public Newx As Long
'Public Newy As Long
'Public Pnt As POINTAPI

'Declare Sub SetWindowPos Lib ″User″ (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)