HOLA!!!

Mira. Segun lo que tengo entendido el counter te mantiene el puntero en el centro de la pantalla lo que puede ser un problema pero este codigo que te paso es un inicio aunquesea.

Lo unico que tenes que hacer es poner en las propiedades del form:
Moveable=false
BorderStyle=0-None

Y te queda copiar el codigo.

Option Explicit
'Constantes para pasarle a la función Api SetWindowPos
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '
 
' Función Api SetWindowPos
Private Declare Function 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) As Long
 
'En el primer parámetro se le pasa el Hwnd de la ventana
'El segundo es la constante que permite hacer el OnTop
'Los parámetros que están en 0 son las coordenadas, o sea la _
 pocición, obviamente opcionales
'El último parámetro es para que al establecer el OnTop la ventana _
no se mueva de lugar y no se redimensione
 
Private Sub Form_Load()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
    Me.Width = 30
    Me.Height = 30
    Me.BackColor = vbBlack
 
End Sub

P.D: Lo unico que te quedaria hacer es que cuando el mouse clickee el form mande un click a el counter.

GRACIAS POR LEER!!!