Dim AddX As Integer

Dim AddY As Integer

Dim HitX As Integer

Dim W As Integer

Dim H As Integer

Private Sub Command1_Click()

BallX=Int(Rnd(1)＊Form1.ScaleWidth/10)＊5＋25

BallY=Int((Form1.ScaleHeight)/10)＊5

AddX=－5

AddY=－5

Form_Paint

Timer1.Enabled=True

End Sub

Private Sub Command2_Click()

End

End Sub

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

X=X－50

If X<15 Then X=15

If X>W－105 Then X=W－105

HitX=X

If Timer1.Enabled=True Then