Frage zu Messagebox

MareikeRemmel

Grünschnabel
Hallo,
ich habe eine klitzekleine Frage.
Und zwar möchte ich eine Messagebox aufrufen:

Dim f_return as interger
f_return =Messgebox("Möchten Sie die Applikation wirklich starten", vbYesNo)

If f_return = vbYes
' dann weiter
else if f_return =vbNo then
' Programm Ende

End if

Nun möchte ich gerne, dass defaultmässig der "No" Button aktiviert ist. Wenn also jemand einfach immer wild Enter drückt ohne zu lesen, soll das Programm nicht starten.

Wenn ich die Messagebox wie oben beschrieben aufrufe, ist aber immer der "Yes" Button aktiv. Wie kann ich das ändern, oder muss ich mir dafür ein eigens kleines Formular bauen?
 
Hallo!
Bin nun selber drauf gekommen:
Code:
f_return = MsgBox("Hallo", vbYesNo + vbDefaultButton2)
    If f_return = vbYes Then
        Command1.Caption = "Yes"
    ElseIf f_return = vbNo Then
        Command1.Caption = "No"
    End If
 
Zurück