Game project part 3

Private Sub cmdPunchDownA_Click()

liHandMoveA.Visible = False

liHandStable2A.Visible = True

End Sub

Private Sub cmdPunchDownB_Click()

liHandMoveB.Visible = False

liHandStable2B.Visible = True

End Sub

Private Sub cmdPunchUpA_Click()

liHandMoveA.Visible = True

liHandStable2A.Visible = False

End Sub

Private Sub cmdPunchUpB_Click()

liHandMoveB.Visible = True

liHandStable2B.Visible = False

End Sub

Private Sub cmdRightA_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

shpHeadA.Left = shpHeadA.Left + 20

shpBodyA.Left = shpBodyA.Left + 20

shpboxerA.Left = shpboxerA.Left + 20

shpLlegA.Left = shpLlegA.Left + 20

shpRlegA.Left = shpRlegA.Left + 20

shpShoeA.Left = shpShoeA.Left + 20

liHandStable1A.X1 = liHandStable1A.X1 + 20

liHandStable1A.X2 = liHandStable1A.X2 + 20

liHandStable2A.X1 = liHandStable2A.X1 + 20

liHandStable2A.X2 = liHandStable2A.X2 + 20

liHandMoveA.X1 = liHandMoveA.X1 + 20

liHandMoveA.X2 = liHandMoveA.X2 + 20

End Sub

Part 2 | Part 4

RAW Game Project

1. Game project part 1
2. Game project part 2
3. Game project part 3
4. Game project part 4
5. Game project part 5
6. Game project part 6