instalasi lampu kereta api

Form 1

Private Sub Command1_Click()

Form2.Show

Form3.Show

Form4.Show

Form5.Show

End Sub

Private Sub Command2_Click()

Form5.Show

End Sub

Private Sub Command4_Click()

Shape1.FillColor = vbBlue

Shape2.FillColor = vbBlue

Shape3.FillColor = vbBlue

End Sub

Form2.Show

Private Sub Command5_Click()

Form2.Show

End Sub

Private Sub Command6_Click()

Form3.Show

End Sub

Private Sub Command7_Click()

Form4.Show

End Sub

Form2

Private Sub Timer1_Timer()

Shape1.FillColor = vbWhite

If (Shape1.FillColor) <= 0 Then

Shape1.FillColor = Me.Width

End If

Shape1.FillColor = Shape1.FillColor - 1000

End Sub

Private Sub Timer2_Timer()

Shape2.FillColor = vbWhite

If (Shape2.FillColor) <= 0 Then

Shape2.FillColor = Me.Width

End If

Shape2.FillColor = Shape2.FillColor - 2000

End Sub

Private Sub Timer3_Timer()

Shape3.FillColor = vbWhite

If (Shape3.FillColor) <= 0 Then

Shape3.FillColor = Me.Width

End If

Shape3.FillColor = Shape3.FillColor - 3000

End Sub

Private Sub Timer4_Timer()

Form2.Caption

If (Form2.Caption) <= 0 Then

Form2.Caption = Me.Width

End If

Form2.Caption = Form2.Caption - 1000

End Sub

Form3

Private Sub Timer1_Timer()

Shape1.FillColor = vbWhite

If (Shape1.FillColor) <= 0 Then

Shape1.FillColor = Me.Width

End If

Shape1.FillColor = Shape1.FillColor - 1000

End Sub

Private Sub Timer2_Timer()

Shape2.FillColor = vbWhite

If (Shape2.FillColor) <= 0 Then

Shape2.FillColor = Me.Width

End If

Shape2.FillColor = Shape2.FillColor - 2000

End Sub

Private Sub Timer3_Timer()

Shape3.FillColor = vbWhite

If (Shape3.FillColor) <= 0 Then

Shape3.FillColor = Me.Width

End If

Shape3.FillColor = Shape3.FillColor - 3000

End Sub

Form 4

Private Sub Timer1_Timer()

Shape1.FillColor = vbWhite

If (Shape1.FillColor) <= 0 Then

Shape1.FillColor = Me.Width

End If

Shape1.FillColor = Shape1.FillColor - 2000

End Sub

Private Sub Timer2_Timer()

Shape2.FillColor = vbWhite

If (Shape2.FillColor) <= 0 Then

Shape2.FillColor = Me.Width

End If

Shape2.FillColor = Shape2.FillColor - 2000

End Sub

Private Sub Timer3_Timer()

Shape3.FillColor = vbWhite

If (Shape3.FillColor) <= 0 Then

Shape3.FillColor = Me.Width

End If

Shape3.FillColor = Shape3.FillColor - 3000

End Sub

Form5

Private Sub Timer1_Timer()

Shape1.FillColor = vbWhite

If (Shape1.FillColor) <= 0 Then

Shape1.FillColor = Me.Width

End If

Shape1.FillColor = Shape1.FillColor - 1000

End Sub

Private Sub Timer2_Timer()

Shape2.FillColor = vbWhite

If (Shape2.FillColor) <= 0 Then

Shape2.FillColor = Me.Width

End If

Shape2.FillColor = Shape2.FillColor - 2000

End Sub

Private Sub Timer3_Timer()

Shape3.FillColor = vbWhite

If (Shape3.FillColor) <= 0 Then

Shape3.FillColor = Me.Width

End If

Shape3.FillColor = Shape3.FillColor - 3000

End Sub