MouseIcon i PictureBox

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long

Private Sub Picture1_Paint()
  DrawIcon Picture1.hdc, 10, 10, GetCursor
End Sub

To min..

Du laver simpelt hen bare ikonet transparant!


(her på min site har jeg lagt et transparant ikon ud)
http://www.friserverplads.dk/basicpage/null.zip

Jeg fortrækker den måde..
/Answer