[RESOLVED] placing objects in frame

[kkman]

below is a project i am working on can someone help me i need to make the bell object move around the frame when i press the start button.

Private Sub cmdDown_Click()
    imgHand.Top = imgHand.Top + 100     'moves image down
    If imgHand.Top > 4000 Then imgHand.Top = 3900  'stops the image from leaving the frame
    Call collission
End Sub
 
Private Sub cmdExit_Click()
    End         'ends program
    
End Sub
 
Private Sub cmdLeft_Click()
    imgHand.Left = imgHand.Left - 100   'moves the image left
    If imgHand.Left < 0 Then imgHand.Left = 480 'stops the image from leaving the frame
    Call collission
End Sub
 
Private Sub cmdRight_Click()
    imgHand.Left = imgHand.Left + 100       'moves the image right
    If imgHand.Left > 9000 Then imgHand.Left = 8900 'stops the image from leaving the frame
    Call collission
End Sub
 
[COLOR=Blue]Private Sub cmdStart_Click()
  
         imgBell.Visible = False
End Sub[/COLOR]
Private Sub cmdUp_Click()
   imgHand.Top = imgHand.Top - 100     'moves image up
   If imgHand.Top < 0 Then imgHand.Top = 120    'stops the image from leaving the frame
   Call collission
End Sub
 
Private Sub collission()
  
  
  If imgBell.Top + imgBell.Height >= imgHand.Top - 100 _
        And imgBell.Top <= imgHand.Top + imgHand.Height + 100 _
        And imgBell.Left + imgBell.Width >= imgHand.Left - 100 _
        And imgBell.Left <= imgHand.Left + imgHand.Width + 100 Then
            imgBell.Visible = True  'this is the collission programe
            MsgBox " ouch! "        'the message will appear when the objects collides
    End If
    
End Sub

Edit: Added [vbcode][/vbcode] tags for more clarity. - Hack

[Hack]

A question better suited to folks well versed in Graphics programming. Moved to Games and Graphics.

[Jacob Roman]

What do you mean by move around the frame? I think it's best that you upload your project so I can fix your problem.

[kkman]

by move around the frame i mean the hand is trying to find the bell. once it finds it the bell is visable. and a message aspears. i just need to get the bell to move to different places every time you press the start button.

[kkman]

sorry hack but i am new to this

[Jacob Roman]

I noticed you are using big numbers for coordinates. You should change the scalemode property of your form and pictureboxes to 3 - Pixels. I have no idea why Microsoft made Twips the default, but when it comes to games, Pixels is the way to go. As for your problem, try this:

Private Sub cmdStart_Click()
 
    Randomize
 
    imgBell.Visible = False
    imgBell.Left = Rnd * Me.ScaleWidth / 2 
    imgBell.Top = Rnd * Me.ScaleHeight / 2 
 
End Sub

[Hack]

sorry hack but i am new to this

There is nothing to be sorry for.

[kkman]

thanks just what the dr. ordered