[christophkrner]

ä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??

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?!