Private Sub Form_Load()
Timer1.Interval = 1000
Label1.ForeColor = &H8000000D
Label1.Font = Arial
Label1.FontSize = 14
Label1.AutoSize = True
Form1.Height = 930
Form1.ScaleHeight = 525
Form1.ScaleWidth = 3000
Form1.Width = 3120
Form1.BackColor = &H8000000E
Label1.BackStyle = 0
Form1.BorderStyle = 4
Form1.Caption = Saat
End Sub
Private Sub Label1_Click()
MsgBox ("made by MaNiAc DaNGeR")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now()
End Sub
erkan_528@hotmail.com
erkan
erkan_528@hotmail.com