Game project part 1

Game Project Codes Free

Form1 codes

General Section

Dim i As Integer

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

shpHeadA.Top = shpHeadA.Top + 20

shpBodyA.Top = shpBodyA.Top + 20

shpboxerA.Top = shpboxerA.Top + 20

shpLlegA.Top = shpLlegA.Top + 20

shpRlegA.Top = shpRlegA.Top + 20

shpShoeA.Top = shpShoeA.Top + 20

liHandStable1A.Y1 = liHandStable1A.Y1 + 20

liHandStable1A.Y2 = liHandStable1A.Y2 + 20

liHandStable2A.Y1 = liHandStable2A.Y1 + 20

liHandStable2A.Y2 = liHandStable2A.Y2 + 20

liHandMoveA.Y1 = liHandMoveA.Y1 + 20

liHandMoveA.Y2 = liHandMoveA.Y2 + 20

End Sub

Private Sub cmdDownB_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

Part 2

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