Dim NeuLbl As Label             'Variable für Label-Erstellung
 
Dim Z_Time As Integer           'Zähler für die Uhrzeit-Labels
Dim Z_Date As Integer           'Zähler für die Datum-Labels
 
Dim LbTimeX As Long            'Label-Uhrzeit-X-Position
Dim LbTimeY As Long            'Label-Uhrzeit-Y-Position
Dim LbTimeB As Long            'Label-Uhrzeit-Breite
Dim LbTimeH As Long            'Label-Uhrzeit-Höhe
 
Private Sub Command1_Click()
 
        'Zähler bei jedem Aufruf +1
    Z_Time = Z_Time + 1
 
        'Neues Label
    Set NeuLbl = Form1.Controls.Add("VB.Label", "Lbl" & Z_Time)
 
        With NeuLbl
                    'Hintergrundfarbe, Border-Styl, Schrift-Styl
            .BackColor = &H8000000F
            .BorderStyle = 1
            .Font = "Schriftart: Arial, 8 pt, fett"
                    'Label Beschriftung
            .Caption = Time
                    'Label in Container
            Set .Container = Picture1
                    'Label auf aktuelle Position setzen
            .Move LbTimeX, LbTimeY, LbTimeB, LbTimeH
                    'Label sichtbar schalten
            .Visible = True
 
        End With
 
        Set NeuLbl = Nothing
 
            'Label-Y-Position nachstellen.
        LbTimeY = LbTimeY + 300
End Sub
 
Private Sub Form_Load()
 
        'LabelUhrzeit XY Start-Koordinaten festlegen
    LbTimeX = 50
    LbTimeY = 100
        'Label-Uhrzeit Breite/Höhe festlegen
    LbTimeB = 1200
    LbTimeH = 285
 
End Sub