'bouncing ball
'make a new project
'add a fom: name = frmBouncingBall
'add a picturbox: name = picBall
'add the code below
'press F5

Public blnReady As Boolean
Public Motion
Dim r
Dim G
Dim B


Private 

sub

Form_Click() blnReady = True End Sub Private

sub

Form_Load() Me.Show Motion = Int(4 * Rnd + 1) blnReady = False Do While Not blnReady Call BouncingBall EvenWachten DoEvents Loop End Sub Public

sub

BouncingBall() r = 255 * Rnd G = 255 * Rnd B = 255 * Rnd With frmBouncingBall Select

case

Motion

case

1 '

move

the graphic left and up by 20 twips using the

move

method. .picBall.Move .picBall.Left - 20, .picBall.Top - 20 ' If the graphic reaches the left edge of the form,

move

it to the right and up. If .picBall.Left <= 0 Then Motion = 2 .picBall.FillColor = RGB(r, G, B) ' If the graphic reaches the

top

edge of the form,

move

it to the left and down. ElseIf .picBall.Top <= 0 Then Motion = 4 .picBall.FillColor = RGB(r, G, B)

end

If

case

2 '

move

the graphic right and up by 20 twips. .picBall.Move .picBall.Left + 20, .picBall.Top - 20 ' If the graphic reaches the right edge of the form,

move

it to the left and up. ' Routine determines the right edge of the form by subtracting the graphic ' width from the form width. If .picBall.Left >= (.Width - .picBall.Width) Then Motion = 1 .picBall.FillColor = RGB(r, G, B) ' If the graphic reaches the

top

edge of the form,

move

it to the right and down. ElseIf .picBall.Top <= 0 Then Motion = 3 .picBall.FillColor = RGB(r, G, B)

end

If

case

3 '

move

the graphic right and

down

by 20 twips. .picBall.Move .picBall.Left + 20, .picBall.Top + 20 ' If the graphic reaches the right edge of the form,

move

it to the left and down. If .picBall.Left >= (.Width - .picBall.Width) Then Motion = 4 .picBall.FillColor = RGB(r, G, B) ' If the graphic reaches the bottom edge of the form,

move

it to the right and up. ' Routine determines the bottom of the form by subtracting ' the graphic height from the form height less 680 twips for the height ' of title bar and menu bar. ElseIf .picBall.Top >= (.Height - .picBall.Height) - 80 Then Motion = 2 .picBall.FillColor = RGB(r, G, B)

end

If

case

4 '

move

the graphic left and

down

by 20 twips. .picBall.Move .picBall.Left - 20, .picBall.Top + 20 ' If the graphic reaches the left edge of the form,

move

it to the right and down. If .picBall.Left <= 0 Then Motion = 3 .picBall.FillColor = RGB(r, G, B) ' If the graphic reaches the bottom edge of the form,

move

it to the left and up. ElseIf .picBall.Top >= (.Height - .picBall.Height) - 80 Then Motion = 1 .picBall.FillColor = RGB(r, G, B)

end

If

end

Select

end

With End Sub Public

sub

EvenWachten()

dim

Start

dim

Check

start

= Timer Do Until

check

>=

start

+ 0.005

check

= Timer Loop End Sub
Return