Private Sub Form_Load()
  ' 20 CheckBoxes anzeigen, wobei 19 geladen werden müssen
  ' jeweils 5 CheckBoxes untereinander und 4 nebeneinander
 
  Dim i As Integer
  Dim nLeft As Long
  Dim nTop As Long
  Dim nWidth As Long
  Dim nHeight As Long
 
  ' Position der 1. CheckBox
  With Check1(0)
    nLeft = .Left
    nTop = .Top
    nWidth = .Width
    nHeight = .Height
  End With
 
  For i = 1 To 20
    Load Check1(i)
    If i Mod 5 = 0 Then
      nLeft = nLeft + nWidth + 105
      nTop = Check1(0).Top
    Else
      nTop = nTop + nHeight + 105
    End If
 
    With Check1(i)
      .Move nLeft, nTop
      .Visible = True
    End With
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de