'This Project needs
'- two timers, interval=100
'- a button

'in general section
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 TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount 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
    Timer2.Interval =  100 
    Timer2.Enabled = True
    Command1.Caption = "Draw Text"
End Sub
'This will draw an Ellipse on the active window
Sub Timer1_Timer()
    Dim Position As POINTAPI
    'Get the cursor position
    GetCursorPos Position
    'Draw the Ellipse on the Screen's DC
    Ellipse GetWindowDC( 0 ), Position.x -  5 , Position.y -  5 , Position.x +  5 , Position.y +  5 
End Sub
Sub Command1_Click()

    Dim intCount As Integer, strString As String
    strString = "Cool, text on screen !"
    For intCount =  0  To  30 
        'Draw the text on the screen
        TextOut GetWindowDC( 0 ), intCount *  20 , intCount *  20 , strString, Len(strString)
    Next intCount
End Sub
Private Sub Timer2_Timer()
    'Draw the text to the active window
    TextOut GetWindowDC(GetActiveWindow),  50 ,  50 , "This is a form",  14 
End Sub

Const HWND_TOPMOST = - 1 
Const HWND_NOTOPMOST = - 2 
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Activate()
    'Set the window position to topmost
    SetWindowPos Me.hWnd, HWND_TOPMOST,  0 ,  0 ,  0 ,  0 , SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub