Returncode

Javascript ist in Ihrem Browser deaktiviert! Nutzen Sie für die Navigation bitte die Sitemap.

MsgBox

Private Sub cmdAuswertung_Click()

Dim ret As Integer

Returncode.

ret = MsgBox("Bitte wählen Sie", 32 + 4, "Auswahl")

If ret = 6 Then

MsgBox "Jawoll", 48 + 0, "JA"

Else

MsgBox "Niemals", 16 + 0, "Nee"

End If

End Sub