Funktionalitätserweiterung der Maustaste

[ChristaRohn]

Hallo meine Lieben,
ich habe ein kleines Programm geschrieben, welches die Funktionalität der Maustasten und ihrer Kombinationstasten veranschaulicht:

Code:

Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox2.Value = ""
If Button = 1 Then TextBox2.Value = "Linke Maustaste"
If Button = 2 Then TextBox2.Value = "Rechte Maustaste"
If Button = 4 Then TextBox2.Value = "Mausrad"

If Shift = 1 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt-Taste gedrückt"
If Shift = 2 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Strg-Taste gedrückt"
If Shift = 3 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt + Strg-Taste gedrückt"
If Shift = 4 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Alt-Taste gedrückt"
If Shift = 5 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt + Alt-Taste gedrückt"
If Shift = 6 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Strg + Alt-Taste gedrückt"
If Shift = 7 And Button = 1 Then TextBox2.Value = "Linke Maustaste + Umschalt + Strg + Alt-Taste gedrückt"

If Shift = 1 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt-Taste gedrückt"
If Shift = 2 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Strg-Taste gedrückt"
If Shift = 3 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt + Strg-Taste gedrückt"
If Shift = 4 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Alt-Taste gedrückt"
If Shift = 5 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt + Alt-Taste gedrückt"
If Shift = 6 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Strg + Alt-Taste gedrückt"
If Shift = 7 And Button = 2 Then TextBox2.Value = "Rechte Maustaste + Umschalt + Strg + Alt-Taste gedrückt"

If Shift = 1 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt-Taste gedrückt"
If Shift = 2 And Button = 4 Then TextBox2.Value = "Mausrad + Strg-Taste gedrückt"
If Shift = 3 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt + Strg-Taste gedrückt"
If Shift = 4 And Button = 4 Then TextBox2.Value = "Mausrad + Alt-Taste gedrückt"
If Shift = 5 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt + Alt-Taste gedrückt"
If Shift = 6 And Button = 4 Then TextBox2.Value = "Mausrad + Strg + Alt-Taste gedrückt"
If Shift = 7 And Button = 4 Then TextBox2.Value = "Mausrad + Umschalt + Strg + Alt-Taste gedrückt"

Was mir fehlt ist aber folgende Funktionalitätserweiterung: Wie stelle ich das Scrollen mit der Maustaste fest? Darüber hinaus besitzt meine Maus noch eine weitere Taste auf der linken Seite.
Könnte man die auch ansprechen? Ich hoffe ihr wisst Rat.