VB.Net 繪製滑鼠

Dim bmCur As New Bitmap(60, 60)

Dim g As Graphics = Graphics.FromImage(bmCur)

'開始畫雙圓形
    g.FillRectangle(Brushes.Transparent, 0, 0, 60, 60)

    g.DrawEllipse(Pens.Red, 10, 10, 40, 40)

    g.DrawEllipse(Pens.Red, 0, 0, 60, 60)

    g.DrawEllipse(Pens.Red, 30, 30, 1, 1)

    g.DrawEllipse(Pens.Red, 25, 25, 10, 10)
'取得滑鼠的指標
    Dim ptrCur As IntPtr = bmCur.GetHicon

    Dim cur As Cursor

    cur = New Cursor(ptrCur)
'設定滑鼠
    Cursor.Current = cur