Option Explicit
 
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
Dim LbDateX As Long                                 'Label-Datum-X-Position
Dim LbDateY As Long                                 'Label-Datum-Y-Position
Dim LbDateB As Long                                 'Label-Datum-Breite
Dim LbDateH As Long                                 'Label-Datum-Höhe
 
 
Private Sub Command1_Click()                    'Test-Programm zum anlegen von 
' Label zur Laufzeit.
 
  Z_Time = Z_Time + 1                               'Zähler bei jedem Aufruf +1
 
  'Das erstellen von Labels auf dem Formular klappt.
                                                'Das Neue Labelbekommt den 
                                                ' Namen "Lblx"
  Set NeuLbl = Form1.Controls.Add("VB.Label", "Lbl" & Z_Time)
  NeuLbl.Move LbTimeX, LbTimeY, LbTimeB, LbTimeH    'Label auf aktuelle 
  ' Position setzen
  NeuLbl.BackColor = &H8000000F                     'Hintergrundfarbe
  NeuLbl.BorderStyle = 0                            'Border-Styl
  NeuLbl.Font = "Schriftart: Arial, 8 pt, fett"     'Schrift-Styl
  NeuLbl.Caption = Time                             'Aktuelle Uhrzeit eintragen
  NeuLbl.Visible = True                             'Label sichtbar schalten
  LbTimeY = LbTimeY + 300                           'Label-Y-Position 
  ' nachstellen.
 
 
 
  'Das Verschieben des Labels auf der PictureBox und das anzeigen der Uhrzeit 
  ' klappt.
  LblUhrzeit.Move 500, LbTimeY, LbTimeB, LbTimeH    'Label auf neue Position 
  ' setzen und
  LblUhrzeit.Caption = Time                         'Aktuelle Uhrzeit eintragen.
 
End Sub
 
 
 
Private Sub Form_Load()
 
  ' Uhrzeit-Start-Koordinaten festlegen
  LbTimeX = 50                                      'Label-Uhrzeit 
  ' X-Start-Position
  LbTimeY = 100                                     'Label-Uhrzeit 
  ' Y-Start-Position
  LbTimeB = 1200                                    'Label-Uhrzeit Breite
  LbTimeH = 204                                     'Label-Uhrzeit Höhe
 
End Sub