کمک در مورد shape

[senator007]

سلام دوستان من يه کد به شکل زير دارم که ميتونم با دکمه های مکان نما کيبرد shapo تکون بدم

اما ميخواستم کاری کنم که وقتی خورد به ديواره فرم پيغام بده بهم ميشه کمک کنيد

کد:

Private Sub Form_Load()
    KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyLeft
        Shape1.Move Shape1.Left - 30
    Case vbKeyRight
        Shape1.Move Shape1.Left + 30
    Case vbKeyUp
        Shape1.Move Shape1.Left, Shape1.Top - 30
    Case vbKeyDown
        Shape1.Move Shape1.Left, Shape1.Top + 30

End Select

[CRazYFULL]

به اين صورت