Setzt den befehl einfach in die Form_Paint() mit einem Boolean so das das nur _
  einmal passiert.

Dim ispaint As Boolean
 
Private Sub Form_Paint()
 If ispaint = True Then Exit Sub
 Me.fTacho Picture1, 0, 120, 9.5, 52, 1, vbRed, 0.1, 0
 ispaint = True
End Sub