编写了这样一个示范类模块，怎么在窗体中调用它，响应它的事件？

Question

Private g_oIE As New InternetExplorer
Private URL As StringPublic Event HaveError()Private Sub Class_Initialize()
    Dim g_oIE As New InternetExplorer
End SubPublic Sub Start(StartURL As String)
    If StartURL = "" Then
        RaiseEvent HaveError
    Else
        URL = StartURL
        g_oIE.Visible = True
        g_oIE.Navigate URL
    End If
End Sub

Answer 1

Private Sub Class_Initialize()
    Dim g_oIE As New InternetExplorer'这个应该改为set g_oIE =New InternetExplorer吧
End Sub

Answer 2

谢谢，我刚才已经发现了。我自己也找到怎么调用了。第一句是不是也应该改为:Private g_oIE As InternetExplorer