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