Visual Basic 6 - Bloccare una MsgBox

lo voglio fare x una scherzetto...
cmq queste sono le api ke ho trovato:

Public Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long

Public Declare Function GetMessageExtraInfo Lib "user32" Alias "GetMessageExtraInfo" () As Long

Public Declare Function GetMessagePos Lib "user32" Alias "GetMessagePos" () As Long

Public Declare Function GetMessageTime Lib "user32" Alias "GetMessageTime" () As Long

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long

Public Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long

Public Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long

quale è quella giusta..io delle api nn ne capisco molto...

[edit] Tag code! [/edit]

La prima sembra essere quella corretta per il tuo scopo..

ecco il codice solo che nn riesco a compilarlo...

Public Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long

Private Sub Command1_Click()
Dim i
For i = 0 To 10
GetMessage
Next i
End Sub

come si fa?

[edit] Tag code! [/edit]