can i let the events being used\activated without using:
????
Code:
Option Explicit
Private Const PM_REMOVE = &H1&
Private Type Msg
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
ptX As Long
ptY As Long
End Type
Private Declare Function TranslateMessage Lib "user32" (lpMsg As Msg) As Long
Private Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, _
ByVal hwnd As Long, _
ByVal wMsgFilterMin As Long, _
ByVal wMsgFilterMax As Long, _
ByVal wRemoveMsg As Long) As Long
Public Sub API_DoEvents(ByVal hwnd As Long)
Dim TMsg As Msg
Do While PeekMessage(TMsg, hwnd, 0&, 0&, PM_REMOVE)
TranslateMessage TMsg
DispatchMessage TMsg
Loop
End Sub