G
Guest
I get the following VB6 sample and it doesn't work in VB .Net. Can anyone
help to make it work in VB .Net?
Structure POINTAPI
Dim x As Long
Dim y As Long
End Structure
Structure MSG
Dim hwnd As Long
Dim message As Long
Dim wParam As Long
Dim lParam As Long
Dim time As Long
Dim pt As POINTAPI
End Structure
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA"
(ByVal lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal
wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
help to make it work in VB .Net?
Structure POINTAPI
Dim x As Long
Dim y As Long
End Structure
Structure MSG
Dim hwnd As Long
Dim message As Long
Dim wParam As Long
Dim lParam As Long
Dim time As Long
Dim pt As POINTAPI
End Structure
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA"
(ByVal lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal
wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long