How to use VB6.0's Event.

Creat a new class named Class1, it's codes like this:

Public Event MyEvent()

Public Sub RaiseTheEvent()
    'some other codes here
    RaiseEvent MyEvent
End Sub

Create a new form, draw a command on it named Command1, double the command to open the code.

It codes like this:

Option Explicit

Private WithEvents Myclass As class1

Private Sub Command1_Click()
    Set Myclass = New class1
    Call Myclass.RaiseTheEvent 'In this sub event is raised.

End Sub

Private Sub Myclass_MyEvent()'this is the sub to dill with the event.
    MsgBox "class1's event occured."
End Sub

Start the application and Click the button will raise the event.