Forma ekliyeceklerimiz.
1 Adet Text1, 1 Adet Commandbutton , 1 Adet label

Private Sub Form_Load()
Label1.Caption = "3"
End Sub

Private Sub Command1_Click()
If Text1.Text = "sifre" Then
MsgBox ("Programa Hoþgeldiniz!")
Else
If Label1.Caption = "0" Then
MsgBox "Hakkiniz Kalmadi!"
End
Else
Label1.Caption = Label1.Caption - 1
MsgBox ("Hatalý Þifre Girdiniz. Lütfen Tekrar Deneyiniz.")
End If
End If
End Sub

Aklima gelenleri yazdim muhtemelen calisicaktir denemedim.

Edit Kodlari denedim calisiyor.