Membuat Aplikasi jam bergerak

sebagai percobaan ayo kita buat sedikit mainan "Membuat  Aplikasi jam bergerak",
untuk membuat jam ini mudah saja, kalian siapkan atau atur dalam visual basic yang telah kalian download atau pun kalian gunakan yang portable   


siapkan 1 Form, yang didalamnya berisi 1 label dan 3 timer, setelah selesai ketikan kode dibawah ini 

Option Explicit

Dim DeltaX, DeltaY As Integer

Private Sub Timer1_Timer()

Label2.Caption = Time

Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY

   If Picture1.Left < ScaleLeft Then DeltaX = 100

   If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then

      DeltaX = -100

   End If

   If Picture1.Top < ScaleTop Then DeltaY = 100

   If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then

      DeltaY = -100

   End If

End Sub

Private Sub Form_Load()

Timer2.Enabled = True

   Timer1.Interval = 100

   DeltaX = 100

   DeltaY = 100

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

    Unload Me

End Sub

Private Sub Timer2_Timer()

Label1 = ""

End Sub

Private Sub Timer3_Timer()

   'BackColor = QBColor(Rnd * 15)

   'ForeColor = QBColor(Rnd * 10)

   'Label2.BackColor = QBColor(Rnd * 15)

   Label2.ForeColor = QBColor(Rnd * 15)

End Sub

  
dan hasilnya akan seperti ini