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
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
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