Private Sub Form_Load()
Dim ad As String
Dim tekrar As Integer
tekrar = 0
ad = InputBox("Şifrenizi giriniz")
Do Until ad = "program açıldığında girilicek şifre"
tekrar = tekrar + 1
If tekrar = 3 Then
MsgBox "uzgunum.deneme hakkınız dolmustur."
Exit Do
End If
MsgBox "yanlıs isim girdiniz.lutfen tekrar deneyiniz."
ad = InputBox("Şifrenizi giriniz")
Loop
End Sub
Bu hazır kod'a ilk yorumu siz yapın!