Modify code to make floating Pictue stay within form boundries

How can i modify this code so picture does not disappear off the form
Sub MovePic()
Dim x As Single, y As Single, velocity As Single, angle As Single, vangle As Single
CenterPic

Me.picJackpot.ZOrder 0
    velocity = 2
    angle = Rnd * 6.283
    x = picJackpot.Left: y = picJackpot.Top
   
    Do
        If Rnd < 0.1 Then vangle = (Rnd - 0.5) * 0.5 'Change direction velocity randomly 10%chance
        angle = angle + (vangle + 6.283) Mod 6.283 'change direction
        x = x + Cos(angle) * velocity 'move position
        y = y + Sin(angle) * velocity
        picJackpot.Move x, y 'move image
        DoEvents 'threading
    Loop While mStopJackPot = False 'Forms.Count Or yourchoise
End Sub
isnoend2001Asked:
Who is Participating?
 
Martin LissOlder than dirtCommented:
Sub MovePic()
Dim x As Single, y As Single, velocity As Single, angle As Single, vangle As Single
CenterPic

Me.picJackpot.ZOrder 0
    velocity = 2
    angle = Rnd * 6.283
    x = picJackpot.Left: y = picJackpot.Top
    
    Do
        If Rnd < 0.1 Then vangle = (Rnd - 0.5) * 0.5 'Change direction velocity randomly 10%chance
        angle = angle + (vangle + 6.283) Mod 6.283 'change direction
        x = x + Cos(angle) * velocity 'move position
        y = y + Sin(angle) * velocity
        If x < 0 Then x = 0
        If x + picJackpot.Width > ScaleWidth Then x = ScaleWidth - picJackpot.Width
        If y < 0 Then y = 0
        If y + picJackpot.Height > ScaleHeight Then y = ScaleHeight - picJackpot.Height
        picJackpot.Move x, y 'move image
        DoEvents 'threading
    Loop While mStopJackPot = False 'Forms.Count Or yourchoise
End Sub

Open in new window

0
 
isnoend2001Author Commented:
your the man
Thank you
0
 
Martin LissOlder than dirtCommented:
You're welcome and I'm glad I was able to help.

My profile contains links to some articles I've written that may interest you.
Marty - MVP 2009 to 2012
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.