Cara Membuat Animasi Pada Visual Basic

1. Rancanglah Komponen Sebagai Berikut :
   
   
2. Isikan Coding dibawah ini :
   
   Private Sub Command1_Click()
   Shape1.BackColor = vbRed
   End Sub
   
   Private Sub Command2_Click()
   Shape1.BackColor = vbGreen
   End Sub
   
   Private Sub Command3_Click()
   x = MsgBox("Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "konfirmasi")
   If x = vbYes Then
   Unload Me
   End If
   End Sub
   
   
   Private Sub Option1_Click()
   Shape1.Shape = 0
   End Sub
   
   Private Sub Option2_Click()
   Shape1.Shape = 1
   End Sub
   
   Private Sub Option3_Click()
   Shape1.Shape = 2
   End Sub
   
   Private Sub Option4_Click()
   Shape1.Shape = 3
   End Sub
3. Saat di jalankan