VB Kullanıcıya seçim yaptırma / Select case

[mayhemious]

basit bi uygulama. form üzerine seçenekler yazdırılıyor ve kullanıcıdan birini seçmesi isteniyor. seçilen sonuca göre islem yapılıyor

Sub Form_Load()
Dim secim As Integer
Show

Print "1- Yeni Kayıt Girisi"

Print "2- Kayıt Okuma"

Print "3- Kayıt Düzeltme"

Print "4- Programdan Çıkıs "

secim = InputBox(" Seçiminizi giriniz ")

Select Case secim

Case 1: MsgBox "Yeni Kayıt"

Case 2: MsgBox "Okuma"

Case 3: MsgBox "Düzeltme"

Case 4: End

End Select

End Sub