Private Sub MouseClick1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick Me.OnMouseClick(e)
Select Case e.Button Case Windows.Forms.MouseButtons.Left Case Windows.Forms.MouseButtons.Right '処理を行う Case (Windows.Forms.MouseButtons.Middle) Case Windows.Forms.MouseButtons.XButton1 Case Windows.Forms.MouseButtons.XButton2 End Select End Sub