Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma HEMEN TIKLA!
Ben burada bir CommandButton kullandım. Siz isterseniz başka yerlerde de kullanabilirsiniz. Bu size kalmış bir durum.
Kod:
Private Sub CommandButton1_Click()
x = MsgBox("Buraya verilecek mesajınızı yazın.", vbYesNo + vbQuestion, "Buraya mesaj kutusunun ismini yazınız.")
If x = vbYes Then
Bu araya yapılması gereken işlem kodlarını yazın.
End If
End Sub