Public Sub Initialize()
  'Initialisieren
 
  Dim oControl As Control
  Dim mCol_SSTAB As Collection
  Dim sControlName As String
  Dim iFontSize As Single
  Dim lTag As Long
 
  With oForm_First
    .Height = oForm_Now.Height
    .Width = oForm_Now.Width
    .Top = oForm_Now.Top
    .Left = oForm_Now.Left
  End With
 
  Set mCol_SSTAB = New Collection
 
  'Alle Controls durchlaufen und Eigenschaften speichern
  For Each oControl In oForm_Now.Controls
    On Error Resume Next
 
    'SSTAB vom SSTAB verborgene Controls merken und in den sichtbaren
    'Bereich verschieben
    If oControl.Left < 0 Then
      mCol_SSTAB.Add oControl
      oControl.Left = oControl.Left + 75000
    End If
 
    With oControl
      sControlName = oControl.Name
     [u] sControlName = sControlName & CStr(oControl.Index)      Hier _
       wird der Fehler angezeigt
     iFontSize = 0
      Err.Clear
      iFontSize = oControl.Fontsize
      If Err.Number = 438 Then iFontSize = oControl.Font.Size
      If TypeOf oControl Is Line Then
         lTag = oControls.AddLine(.X1, .X2, .Y1, .Y2, sControlName).Tag
        Else
         lTag = oControls.Add(.Top, .Left, .Width, .Height, sControlName, _
           iFontSize).Tag
      End If
    End With
  Next
 
  'Alle vorher verschobenen Controls wieder zurückverschieben
  For Each oControl In mCol_SSTAB
    oControl.Left = oControl.Left - 75000
  Next
 
End Sub

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber