Game project part 2


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

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

shpHeadB.Left = shpHeadB.Left - 20

shpBodyB.Left = shpBodyB.Left - 20

shpBoxerB.Left = shpBoxerB.Left - 20

shpLLegB.Left = shpLLegB.Left - 20

shpRlegB.Left = shpRlegB.Left - 20

shpShoeB.Left = shpShoeB.Left - 20

liHandStable1B.X1 = liHandStable1B.X1 - 20

liHandStable1B.X2 = liHandStable1B.X2 - 20

liHandStable2B.X1 = liHandStable2B.X1 - 20

liHandStable2B.X2 = liHandStable2B.X2 - 20

liHandMoveB.X1 = liHandMoveB.X1 - 20

liHandMoveB.X2 = liHandMoveB.X2 - 20

End Sub