'1-Yeni bir proje oluşturun.
'2- Aşağıdaki kodları Formun general Declarations bölümüne yapıştırın
Sub
Form_Click ()
Dim
veri
' Tanımlama.
Do
' Döngü.
veri = UCase(InputBox(
"A Ve ya X tuşlarına basınız"
,
"End"
))
Select
Case
' Veri Seçimi.
"A"
: MsgBox
"Girişiniz 'A'."
,54,”
End
”
"X"
:
' Çıkış
Else
"Geçersiz Giriş,Tekrar Deneyiniz."
,48,”
' Seçim Bloğu bitti.
Loop
' Procedure sonu
'4- Projenizi Kaydedip Çalıştırın. Form 1 uzerine fare ile çift tıklayın