表单 VB 之间的交换事件问题

问：

我需要在 Form1 和 DialogWindow 之间交换一些值。 这是我的主窗体中的代码（创建事件，创建引发事件的函数，并调用该函数）

表格 1

Public Event station_changed(ByVal sender As Object, ByVal e As String)  
      'form 1 code

      'Here the code when i need to rase the event 
       OnStationChange(CheckBox1.Text)
Public Overridable Sub OnStationChange(ByVal e As String)
    RaiseEvent station_changed(Me, e)
End Sub

对话窗口

Public WithEvents main_form As Form1

'dialog code 

Public Sub station_change(ByVal sender As Object, ByVal e As String) Handles main_form.station_changed

      'do something
    End Sub

我真的不知道为什么这个保持不起作用。有人可以解释一下解决方案吗？