|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Msgbox não modal
|
 |
|
|
|
Postada em 16/1/2004 por ~Ð@®£@Ñ
Private 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
Private Const MB_OKCANCEL As Long = &H1
Private Sub Command1_Click()
Dim ret As Variant
ret = MessageBox(0, "Esta é uma messagebox não modal", "Messagebox não modal", MB_OKCANCEL)
End Sub
|
|
|
|
|
