Option Explicit
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
Dim arr(8) As Byte
Dim mret As Long
arr(0) = &HB8
arr(1) = &H80
arr(2) = &H0
arr(3) = &H0
arr(4) = &H0
arr(5) = &HC2
arr(6) = &H10
mret = CallWindowProc(VarPtr(arr(0)), 0, 0, 0, 0)
MsgBox mret
End Sub
no recuerdo como era para declara una función con un parámetro pero se puede, tengo años de no usar vb
huy que tonto soy :S se me había olvidado
& muchas gracias RHL, me siento algo tonto :S
ya me iba a funcionar jajaja.
algo mas porque esto
arr(5) = &HC2
arr(6) = &H10
en vez de C3?