Private Sub Form_Load()
Dim i As Double: AutoRedraw = True: FontSize = 30
ScaleMode = vbPixels: i = Timer: Show
Do While Not Abs(Timer - i) > 0.4: DoEvents: Loop
Print Chr(-32054): i = Timer
Do While Not Abs(Timer - i) > 0.4: DoEvents: Loop
CurrentX = 40: CurrentY = 0: Print Chr(-32023)
i = Timer
Do While Not Abs(Timer - i) > 0.4: DoEvents: Loop
CurrentX = 73: CurrentY = 0: Print Chr(-32037)
End Sub