Labelfelder werden dynamisch erzeugt; Labelfelder für Zahlen; Labelfelder mit _
  '+' Zeichen
FOR-Schleife mit Waagrechten Punkte in der eine FOR-Schleife mit Senkrechten _
Punkten integriert ist.

Public Sub Raster()
Dim i As Integer, j As Integer, Z As Integer, hoehe As Integer, Weite As _
  Integer, X As Integer 
Dim Y As Integer
 
max_X = 40
max_Y = 100
hoehe = (frmVorschau.Height - 200) / max_X
Weite = (frmVorschau.Width - 200) / max_Y
    'Zahlenhorizontale erzeugen
For i = 1 To max_Y
    Load lblZahl(i)
    With lblZahl(i)
        If i = 1 Then
            .Top = 80
            .Left = 250
            .Caption = i
        Else
            .Top = 80
            .Left = lblZahl(i - 1).Left + 8 + Weite
            Debug.Print i & "-" & .Left & "  ";
        End If
        If i Mod 5 = 0 Then
            .Caption = i 
        End If
        .Visible = True
    End With
Next
'"X-Zahlen"
For j = 1 To max_X
    Load lblZahl(i)
    With lblZahl(i)
        If j = 1 Then
            .Top = 150
            .Left = 80
            .Caption = j
        Else
            .Left = 80
            .Top = lblZahl(i - 1).Top + 6 + hoehe           
        End If
        If i Mod 5 = 0 Then
            .Caption = j
        End If
        .Visible = True
    End With
    i = i + 1
Next
 
Z = 1
Y = 1
 
lblPunkt(0).Top = 240
lblPunkt(0).Left = 250
For i = 0 To max_Y
    If i > 0 Then
        Load lblPunkt(Z)
        With lblPunkt(Z)
            .Top = 240
            .Left = lblPunkt(Z - max_X).Left + Weite
            .Visible = True
        End With
        Z = Z + 1
    End If
    For j = 1 To max_X
        Load lblPunkt(Z)
        With lblPunkt(Z)
            .Top = lblPunkt(j - 1).Top + hoehe + 7
            .Left = lblPunkt(Z - 1).Left
            .Visible = True
        End With
        Z = Z + 1
    Next
 
Next
fi_X = lblPunkt(41).Left - 240
fi_Y = lblPunkt(1).Top - 240
End Sub