Option Explicit

Dim objAutoItX

Dim intCoordX
Dim intCoordY

Dim strWinDesktop
Dim i

Set objAutoItX = CreateObject("AutoItX3.Control") 

strWinDesktop = "[TITLE:Program Manager; CLASS:Progman;]"

intCoordX = objAutoItX.WinGetPosWidth(strWinDesktop) \ 4
intCoordY = objAutoItX.WinGetPosHeight(strWinDesktop) - objAutoItX.WinGetPosHeight(strWinDesktop) \ 10

' Примечание: здесь "—" - символ с кодом Alt0151 (длинное тире)
objAutoItX.ToolTip String(100, "—"), intCoordX, intCoordY

For i = 1 To 100
    ' Вместо этого какая-то работа
    WScript.Sleep 1000
    '
    
    ' Примечание: здесь "—" - символ с кодом Alt0151 (длинное тире)
    ' должна быть одинаковая ширина символов "=" и "—"
    objAutoItX.ToolTip String(i, "=") & String(100 - i, "—"), intCoordX, intCoordY
Next

objAutoItX.ToolTip ""

Set objAutoItX = Nothing