Рисование вне формы в любом месте экрана

Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub
Sub Timer1_Timer()
    Dim Position As POINTAPI
    'Позиция курсора
    GetCursorPos Position
    'Рисуем элипс на экране
    Ellipse GetWindowDC(0), Position.x - 5, Position.y - 5, Position.x + 5, Position.y + 5
End Sub

Private Declare Function ExtCreatePen Lib "gdi32" (ByVal dwPenStyle As Long, ByVal dwWidth As Long, lplb As LOGBRUSH, ByVal dwStyleCount As Long, lpStyle As Long) As Long

Private Type LOGBRUSH
        lbStyle As Long
        lbColor As Long
        lbHatch As Long
    End Type
    Private Declare Function ExtCreatePen Lib "gdi32" (ByVal dwPenStyle As Long, ByVal dwWidth As Long, lplb As LOGBRUSH, ByVal dwStyleCount As Long, lpStyle As Long) As Long
    Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
    Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
    Private Const BS_SOLID = 0&
    Private Const PS_COSMETIC = 0&
    Private Const PS_USERSTYLE = 7&
    Private OldPen As Long
 
    Private Sub Form_Load()
    Dim lb As LOGBRUSH, Lengths(4) As Long
    lb.lbColor = 255
    lb.lbStyle = BS_SOLID
    Lengths(1) = 10
    Lengths(2) = 3
    Lengths(3) = 5
    Lengths(4) = 3
    OldPen = SelectObject(hdc, ExtCreatePen(PS_COSMETIC Or PS_USERSTYLE, 1, lb, 4, Lengths(1)))
    End Sub
 
    Private Sub Form_Unload(Cancel As Integer)
    DeleteObject SelectObject(hdc, OldPen)
    End Sub
 
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Line (0, 0)-(X, Y)
    End Sub