Necesito ayuda con vb 6.0

[bodka]

Hola, bueno miren mi duda es esta, yo estoy haciendo un codigo al que con las flechitas puedo mover un SHAPE x la pantalla eso ta todo bien, pero cuando llega un cierto limite q sobrepasa la ventana osea el (FORM) y yo quiero hacer que no pase desde el form

este es el codigo que hize :
__________________________________________________ _
Option Explicit
Private Sub Form_keydown(Keycode As Integer, Shift As Integer)
If Keycode Then
Select Case Keycode

Case vbKeyUp
Call Arriba
Case vbKeyDown
Call abajo
Case vbKeyRight
Call derecha
Case vbKeyLeft
Call izquierda
End Select
End If
End Sub

Sub Arriba()
P.Top = P.Top - "0,5"
End Sub

Sub abajo()
P.Top = P.Top + "0,5"
End Sub
Sub derecha()
P.Left = P.Left + "0,5"
End Sub
Sub izquierda()
P.Left = P.Left - "0,5"
End Sub
_________________________________________________

La escala del form esta echa a CM.
y tambien necesito que si me pueden explicar, suponete yo agreo un shape mas, pero q el primer shape no lo superponga.

osea cuando me acerco con el SHAPE1 al SHAPE2 NO LO SOBRE PASE x arriba que se frene al rozar cone l shape2

=$ eso solito presiso =$

espero q me puiedan ayudar :$:$:$:$

suerte!

y espero respuestas rapidito a ree :)


.Lucas