Private Sub Form_Load()
' Forma şifre koyma (şifre bilgisayarın saati) örnek (10:02)
Timer1.Interval = 1000
If InputBox("şifreyi giriniz") <> Mid(Time, 1, 5) Then
MsgBox ("şifreyi bilemediniz.bilgiler üzerinde degişiklik yapamazsınız.")
Text1.Locked = True
End If
End Sub