RaiseEvent

控件

Public Event txtEndChanged As EventHandler    

 Protected Sub TextBox1_TextChanged()Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged    
        RaiseEvent txtEndChanged(Me, e)    
    End Sub    

含有上面控件的画面

 Protected Sub txtEndTime_Changed()Sub txtEndTime_Changed(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtEndTime.txtEndChanged    
    'TextBox1的TextChanged事件被触发时，会进入到画面里的这个方法
    End Sub