Power

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