myGully.com - [VB 2005] Pixel aus jpg auslesen und in txt speichern

ähm also ich habe schon mal die Sachen gefunden.

Nur wie bekomme ich es so hin, wenn Case 1 oder Case 2 gedrückt wird, dass dann der Code ausgeführt wird, und nicht sich ein Fenster öffnet??

Code:

Public Class Form1



    Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer

    Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)

    Private Const Key_NONE As Integer = &H0

    Private Const WM_HOTKEY As Integer = &H312



    Protected Overrides Sub WndProc(ByRef m As Message)

        'die messages auswerten

        If m.Msg = WM_HOTKEY Then

            'hier wird entschieden welcher hotkey es war

            'einfach die übergebene id auswerten

            Select Case m.WParam

                Case 1





    Declare Function GetPixel Lib "gdi32.dll" ( _

      ByVal hdc As System.Windows.Forms.PictureBox, _

      ByVal nXPos As Long, _

      ByVal nYPos As Long) As Long

    Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        pb.ImageLocation = "C:/CheaterOnTheWall\"

    End Sub



    Private Sub cmdPixelwert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPixelwert.Click

        Dim Wert As String = "0"

        Wert = GetPixel(pb, 1, 1)

        MessageBox.Show(Wert)

    End Sub







                Case 2

                    MessageBox.Show("Falsche Taste ;-)")

            End Select

        End If

        MyBase.WndProc(m)

    End Sub



    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        'die tab taste wieder freigeben

        UnregisterHotKey(Me.Handle, 1)

        UnregisterHotKey(Me.Handle, 2)

    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'die tab taste abfangen

        RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Tab)

        RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.D1)

    End Sub

End Class

Ich weis, dass manche Sachen in den Header kommen, nur welche??

Wie muss ich es gestalten, dass er es macht, was ich ihm befehlen möchte?!