Events 如何在vb6中实现事件？

我定义了一个按钮和一个事件，并在按钮单击中引发事件，所以我的问题是如何实现该事件

Public Event ClickEvent()

Private Sub Command1_Click()
    RaiseEvent ClickEvent
End Sub

---

假设您发布的代码是一个名为Form1的表单

创建一个新表单（Form2）。将此代码添加到Form2：

'declare an object and tell vb you want to subscribe to the objects events
Private WithEvents Foo As Form1

Private Sub Form_Load()
    'initialise the object
    Set Foo = New Form1
    'show the Form1 object which has the button on so we have something to click
    Foo.Show
End Sub

'when the button is clicked this event is raised
Private Sub Foo_ClickEvent()
    MsgBox "Click Event"
End Sub

---

我认为这个问题对于这个网站来说太基本了。有一些优秀的VB6教程，请先试用！有关事件的详细信息：VB6手册包含一个关于自定义事件的优秀教程。可用