Private Sub Command1_Click()
Dim s1
s1 = Text1.Text
If s1 = 12345 Then
MsgBox "Giriş Başarılı"
Else
MsgBox "!!!HATA!!!"
End If
End Sub
basit bi kod eğer 12345 yazarsan giriş başarılı başka bi sayı yazarsan hata diyor yapabilen arkadaşlar bunları dosyada kullanabilirse bu konu altında paylaşsın
Dim s1
s1 = Text1.Text
If s1 = 12345 Then
MsgBox "Giriş Başarılı"
Else
MsgBox "!!!HATA!!!"
End If
End Sub
basit bi kod eğer 12345 yazarsan giriş başarılı başka bi sayı yazarsan hata diyor yapabilen arkadaşlar bunları dosyada kullanabilirse bu konu altında paylaşsın
