FORM1中如何接受Public Module中引发的事件？

[lkhoji]

问题如题：FORM1中如何接受Public Module中引发的事件？
在类模块中声明的事件可以在窗体的事件菜单中找到，可是在标准模块中声明的事件却找不到，不知道怎么处理。
这一定是一个很菜的问题，请高手不吝赐教！谢谢！

Public Module  Module1
    Private Event ShareProgress(ByVal ProgressValue As String)
    Private Sub 引发事件()
        RaiseEvent ShareProgress("123456")
    End Sub
End Module

Public Class FORM1
    '这里怎样接收事件通知
End Class

[兔子-顾问]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AddHandler Module1.ShareProgress, AddressOf MyEventHandler
    End Sub

    Public Sub MyEventHandler(ByVal ProgressValue As String)

    End Sub

另外，这句要修改一下
Private Event ShareProgress(ByVal ProgressValue As String)
改为
Public Event ShareProgress(ByVal ProgressValue As String)

[肄若芸]

http://msdn.microsoft.com/zh-cn/library/ms173171(v=VS.80).aspx

使用委托更合适

[Tosp2012]

更改为：
Public Module Module1
public Event ShareProgress(ByVal ProgressValue As String)
public Sub 引发事件()
RaiseEvent ShareProgress("123456")
End Sub
End Module