Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
   Handles Button1.Click
        'da mein Bild in den Resourcen als Cursor zu groß ist, muß es erst 
        ' verkleinert werden
        Dim bmp As New Bitmap(My.Resources.hahn, New Size(20, 20))
        'Den Handle für diese Bitmap holen und daraus einen neuen Cursor 
        ' erstellen
        Me.Cursor = New Cursor(bmp.GetHicon)
        'Bitmap löschen
        bmp.Dispose()
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus