Private Sub Command1_Click()

If MsgBox("Çıkış yapılsınmı?", vbYesNo) = vbYes Then
End
End If
End Sub



Bir Adet Buton oluştur Kod Kısmına bu kod u yapıştur