マウスのホイール/右をクリックした時にイベントを発生させたい

質問

マウスを右クリックしたとき及びホイールを押した時にそれぞれイベント（ここではメッセージボックスとします）させたいのですが、どのように書いたらいいですか？
if （???.click?） then
msgbox
End if
という感じになると思うのですが、clickの部分をどう書いたら良いのかよく分かりません。

VB2005Express Editionを使っています。

回答No.1

tsukasa-12r

フォーム Form1 上での右クリックは

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Right Then
MessageBox.Show("Right Button Clicked", "Test", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
のようにして判定できます。
ホイールについては、マウスドライバによって異なるかもしれませんが、コントロールパネル中の「マウス」の設定によって、ホイールがクリックされたときの動作を左クリックと同じにしたり、右クリックと同じにしたりできますので、通常の方法では判定できないと思います。
コントロールパネル中の「マウス」の設定によって、ホイールクリック時の動作を「中央ボタンクリック」にしておけば、
If e.Button = Windows.Forms.MouseButtons.Middle Then
で判定できますが、ホイールクリックで自動スクロールができなくなります。

お礼

ありがとうございます。
フォーム内ではなくOS上全てでやりたいので、残念ながら参考になりませんでした。自己解決いたしましたので締め切らせて頂きます。
ご回答ありがとうございました。