Returncode

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
.

 Ranking-Hits zurück Sitemap
Designed by www.wbrnet.info