Game project part 5

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

shpHeadB.Top = shpHeadB.Top - 20

shpBodyB.Top = shpBodyB.Top - 20

shpBoxerB.Top = shpBoxerB.Top - 20

shpLLegB.Top = shpLLegB.Top - 20

shpRlegB.Top = shpRlegB.Top - 20

shpShoeB.Top = shpShoeB.Top - 20

liHandStable1B.Y1 = liHandStable1B.Y1 - 20

liHandStable1B.Y2 = liHandStable1B.Y2 - 20

liHandStable2B.Y1 = liHandStable2B.Y1 - 20

liHandStable2B.Y2 = liHandStable2B.Y2 - 20

liHandMoveB.Y1 = liHandMoveB.Y1 - 20

liHandMoveB.Y2 = liHandMoveB.Y2 - 20

End Sub

Private Sub Form_Load()

liHandMoveA.Visible = False

liHandMoveB.Visible = False

End Sub 

Part 4 | Part 6

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