Animasi VB

The code

Dim amount ,x, a, b, c  As Integer


Private Sub Command1_Click()
Timer1.Enabled = True
MMControl1.Command = "Close"
MMControl2.Command = "close"

x = 0
Label2.Caption = "Your Credits"
amount = Val(Text1)
End Sub


Private Sub Form_Load()
Label1.Caption = " Welcome to Play"
Label3.Visible = False
End Sub

Private Sub instruct_click()
Label3.Visible = True
End Sub

Private Sub Text1_Change()
amount = Val(Text1)
End Sub

Private Sub Timer1_Timer()
If x < 500 Then
spin
Else
Timer1.Enabled = False
MMControl1.Command = "Stop"
Label1.Alignment = 2
 

If (a = 3 And b = 3 And c <> 3) Or (a = 3 And c = 3 And b <> 3) Or (b = 3 And c = 3 And a <> 3) Then
Label1.Caption = " You win 20 dollars"
amount = amount + 20
End If

If (a = 4 And b = 4 And c <> 4) Or (a = 4 And c = 4 And b <> 4) Or (b = 4 And c = 4 And a <> 4) Then
Label1.Caption = " You win 30 dollars"
amount = amount + 30
End If

If (a = 5 And b = 5 And c <> 5) Or (a = 5 And c = 5 And b <> 5) Or (b = 5 And c = 5 And a <> 5) Then
Label1.Caption = " You win 40 dollars"
amount = amount + 40
End If

If (a = 3 And b = 3 And c = 3) Or (a = 4 And b = 4 And c = 4) Or (a = 5 And b = 5 And c = 5) Then
MMControl2.Notify = False
MMControl2.Wait = True
MMControl2.Shareable = False
MMControl2.DeviceType = "WaveAudio"
MMControl2.FileName = "D:\Liew Folder\VB program\audio\endgame.wav"
MMControl2.Command = "Open"
MMControl2.Command = "Play"


Label1.Caption = " Congratulation! Jackpot!!! You win 200 dollars!"
amount = amount + 200
End If

If (a = 3 And b = 4 And c = 5) Or (a = 3 And b = 5 And c = 4) Or (a = 4 And b = 3 And c = 5)

Or (a = 4 And b = 5 And c = 3) Or (a = 5 And b = 4 And c = 3) Or (a = 5 And b = 3 And c = 4) Then

Label1.Caption = " Too bad, you lost 50 dollars"
amount = amount - 50
End If

If amount < 0 Then
Label1.Caption = "Oh! you're bankrupt!"
End If
Text1.Text = Str$(amount)
End If
End Sub

Sub spin( )

x = x + 10
Randomize Timer
a = 3 + Int(Rnd * 3)
b = 3 + Int(Rnd * 3)
c = 3 + Int(Rnd * 3)

MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "D:\Liew Folder\VB program\audio\slot2.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"


Label1.Caption = "Good Luck!"
Label1.Alignment = a - 3
Shape1(0).Shape = a
If a = 3 Then
Shape1(0).FillColor = &HFF00&
End If
If a = 4 Then
Shape1(0).FillColor = &HFF00FF
End If
If a = 5 Then
Shape1(0).FillColor = &HFF0000
End If


Shape1(1).Shape = b
If b = 3 Then
Shape1(1).FillColor = &HFF00&
End If
If b = 4 Then
Shape1(1).FillColor = &HFF00FF
End If

If b = 5 Then
Shape1(1).FillColor = &HFF0000
End If

Shape1(2).Shape = c
If c = 3 Then
Shape1(2).FillColor = &HFF00&
End If
If c = 4 Then
Shape1(2).FillColor = &HFF00FF
End If
If c = 5 Then
Shape1(2).FillColor = &HFF0000
End If

End Sub