visual basic

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Unload Me
Exit Sub

End Sub

Private Sub Command1_Click()
Form3.Show
End Sub

Private Sub Command2_Click()
Dim a, b, c As Integer

For a = 600 To 960 Step 50
Shape7(0).Top = a
Next a

For a1 = 600 To 840 Step 50
Shape8(0).Top = a1
Next a1


Shape3.Width = 5000
For c = 1000 To 2050
Shape3.Width = c
Next c

End Sub

Private Sub Form_Load()
Shape6.Visible = True
Shape3.Visible = True

Shape7(0).Top = 1600
Shape8(0).Top = 1480
End Sub

Private Sub Option1_Click()
Form4.Show
End Sub

Private Sub Option2_Click()
Form5.Show
End Sub