'/** ' * Setzt die StartWerte für eine Instanz ' * @param Long StartWert ' * @param Long Schrittgrösse ' * @return Counter Die Singleton-Instanz '*/ Public Sub initialize(Optional ByVal iStart As Long = C_DEFAULT_START, Optional ByVal iStep As Long = C_DEFAULT_STEP) ... End Sub