Zitat:

Unter bestimmten Bedingungen ist das Entladen eines Formulars oder eines Steuerelements in einem Formular nicht zulässig. Für diesen Fehler gibt es folgende Ursachen und Lösungen: ... Das Change-, Click- oder DropDown-Ereignis eines Kombinationsfeld-Steuerelements (ComboBox) enthält eine Unload-Anweisung[/b ]...

Private Sub Command1_Click()
  Dim i As Integer
  Dim nMax As Integer
  Dim nCount As Integer
 
  ' Maximal vorhandene Labels
  nMax = Label1.UBound
 
  ' aktuell benötigte Anzahl Labels
  nCount = Val(Combo1.Text)
 
  ' Controls laden, falls notwendig
  While nMax < nCount
    nMax = nMax + 1
    Load Label1(nMax)
    With Label1(nMax)
      .Visible = True
      .Caption = "Label1(" & i & ")"
      .Left = Label1(nMax - 1).Left + Label1(nMax - 1).Width + 50
    End With
  Wend
 
  ' Controls entladen, falls notwendig
  While nMax > nCount
    nCount = nCount + 1
    Unload Label1(nCount)
  Wend
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de