Newest Post
// On :Minggu, 13 Maret 2016
listing program Lampu lalu lintas
Private Sub Command1_Click()
End
End Sub
Private Sub Timer1_Timer()
Shape3.Visible = False
Shape1.Visible = True
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
Shape1.Visible = False
Shape2.Visible = True
Timer3.Enabled = True
Timer2.Enabled = False
End Sub
Private Sub Timer3_Timer()
Shape2.Visible = False
Shape3.Visible = True
Timer1.Enabled = True
Timer3.Enabled = False
End Sub
