Line(16,H－5)－(W－6,H),＆HC0C0C0,BF

Line(HitX,H)－(HitX＋100,H－5),0,BF

End If

End Sub

Private Sub Form_Paint()

Cls

W=Int((ScaleWidth－140)/5)＊5

H=Int((ScaleHeight－10)/5)＊5

BackColor=＆HC0C0C0

Line(10,10)－(15,H),0,BF

Line(W－5,10)－(W,H),0,BF

Line(10,10)－(W,15),0,BF

End Sub

Private Sub Timer1_Timer()

Form1.Circle(BallX,BallY),4,＆HC0C0C0

BallX=BallX＋AddX

BallY=BallY＋AddY

Form1.Circle(BallX,BallY),4,0

If BallX<=20 Then AddX=－AddX

If BallY<=20 Then AddY=－AddY

If BallX>=W－10 Then AddX=－AddX

If BallY>=H－10 Then