Public Sub txt_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) MessageBox.Show("这是自定义事件!") End Sub