Hi,
You can create a bitmap then create the cursor from the bitmap.
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)
Me.Cursor = cur
Ken