個人記事

下面是最簡化 的方式  vb6 的 寫法  vb.net 也可以用

Private Declare Function ReleaseCapture Lib “user32” ()AsLong

　　Private Declare Function SendMessage Lib “user32”Alias“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

　　Const WM_SYSCOMMAND = &H112

　　Const SC_MOVE = &HF012

紫色這段  最好是放在 時間裡面 這樣才能有效果（因為一直迴圈跑）

　　ReleaseCapture

　 移動視窗

　　SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

    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