New Cursor(bitmap.GetHicon())

"iPod oder EiPott?"

Public Class Form1
    Declare Function GetIconInfo Lib "user32" (ByVal hIcon As IntPtr, ByRef _
      pIconInfo As IconInfo) As Boolean
    Declare Function CreateIconIndirect Lib "user32" (ByRef icon As IconInfo) _
    As IntPtr
 
    Public Structure IconInfo
        Public fIcon As Boolean
        Public xHotspot As Int32
        Public yHotspot As Int32
        Public hbmMask As IntPtr
        Public hbmColor As IntPtr
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Cursor = CreateCursor(SystemIcons.Warning.ToBitmap, 14, 0)
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Me.Text = e.Location.ToString
    End Sub
 
    Private Function CreateCursor(ByVal bmp As Bitmap, ByVal x As Int32, ByVal _
      y As Int32) As Cursor
        Dim inf As New IconInfo
        GetIconInfo(bmp.GetHicon, inf)
        inf.xHotspot = x
        inf.yHotspot = y
        inf.fIcon = False
        Return New Cursor(CreateIconIndirect(inf))
    End Function
End Class

"iPod oder EiPott?"