Please Help Me soon

[mohan_balal]

:)This is my code ------------------------------------ Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 39 Then Image1.Left = Image1.Left + 50 End If If KeyCode = 37 Then Image1.Left = Image1.Left - 50 End If If KeyCode = 40 Then Image1.Top = Image1.Top + 50 End If If KeyCode = 38 Then Image1.Top = Image1.Top - 50 End If End Sub Private Sub Timer1_Timer() If Image1.Top = Shape1.Top And Image1.Left = Shape1.Left Then MsgBox "Touch" End If End Sub -------------------- My Problem is: I want to fire the events If the Image1 touch any edge of the shape1.

[Dave Kreskowiak]

Raise what event? Are you asking how you can define your own custom event and fire it? You have to declare an event to fire first, something like this at the module level, class level, or form:

Public Event MyEvent(MyArg1 As Integer)

And you fire it like this:

RaiseEvent MyEvent(someValue)

RageInTheMachine9532 "...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome