MessageBox! [Sandpaper]

Hi,

how can I show a messagebox in VB6?

Thanks,
The Frog

The easy way:

VB Code:

'© by Mike2
MsgBox "Hello Frog!"

The hard way:

VB Code:

'© by Mike2
Const MB_DEFBUTTON1 = &H0&
Const MB_DEFBUTTON2 = &H100&
Const MB_DEFBUTTON3 = &H200&
Const MB_ICONASTERISK = &H40&
Const MB_ICONEXCLAMATION = &H30&
Const MB_ICONHAND = &H10&
Const MB_ICONINFORMATION = MB_ICONASTERISK
Const MB_ICONQUESTION = &H20&
Const MB_ICONSTOP = MB_ICONHAND
Const MB_OK = &H0&
Const MB_OKCANCEL = &H1&
Const MB_YESNO = &H4&
Const MB_YESNOCANCEL = &H3&
Const MB_ABORTRETRYIGNORE = &H2&
Const MB_RETRYCANCEL = &H5&
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 Sub Form_Load()
    MessageBox Me.hwnd, "Hello Frog!", "Frogs", MB_OK
    End
End Sub

Good luck! :wave:

Please edit your first post and add "[Solved]" (without the quotes) to the title.








:D

what do ya wanna show it? sandpaper? food? bodwad? :afrog:

I am happy. I can show a messagebox. Now I will show it to all my cool friends and make them jealous of me.

But show them the easy way... Don't make them feel too bad :afrog:

Yes, you're right. I'm the Angel of Merciful Sandpaper. Hallelujah.

Amen :afrog:

Quote:

---

Originally posted by mike2
The easy way:

VB Code:

'© by Mike2
MsgBox "Hello Frog!"

Good luck! :wave:

---

Can I use your code in my project?Do i have to pay you or JupiterMedia or Who ?:confused: :confused: