Option Explicit
 
Dim xTag&, xMonat&, xJahr&, xTageImMonat&
Dim llx As Integer
Dim Datum1, Tag1
 
Private Sub Form_Load()
 xTag = Format(Date, "d"): xMonat = Format(Date, "mm"): xJahr = Format(Date, _
   "yyyy")
 Datum1 = "1." & xMonat: Tag1 = Weekday(Datum1)
 xTageImMonat = Day(DateSerial(xJahr, xMonat + 1, 0))
 For llx = 0 To 11
  If llx > 0 Then Load LblMonat(llx)
   With LblMonat(llx)
       .Left = LblMonat(0).Left: .Top = LblMonat(0).Top + (.Height + 60) * (llx _
         Mod 12): .Caption = Format$(DateSerial(Year(Now), llx + 1, 1), " mmmm" & _
         ""): .Visible = True
   End With
 Next
 For llx = 0 To 6
  If llx > 0 Then Load LblTagName(llx)
  With LblTagName(llx)
      .Left = LblTagName(0).Left + (.Width + 60) * (llx Mod 7): .Visible = True
  End With
 Next
 LblDatum(0).Left = LblTagName(Tag1 - 2).Left
 For llx = 0 To xTageImMonat - 1
  If llx > 0 Then Load LblDatum(llx)
  With LblDatum(llx)
     If llx < 5 Then .Left = LblDatum(0).Left + (.Width + 60) * (llx Mod 5): _
       .Visible = True: .Caption = "  " & llx + 1
     If llx > 4 Then .Left = LblTagName(0).Left + (.Width + 60) * (llx Mod _
     7): .Top = LblDatum(0).Top + (.Height + 40) * (llx \ 7): .Visible = True: _
     .Caption = "  " & llx + 1
  End With
 Next
 LblDatum(xTag - 1).ForeColor = vbGreen
 LblTagName(0).Caption = "Montag": LblTagName(1).Caption = "Dienstag": _
   LblTagName(2).Caption = "Mittwoch": LblTagName(3).Caption = "Donnerstag"
 LblTagName(4).Caption = "Freitag": LblTagName(5).Caption = "Samstag": _
 LblTagName(6).Caption = "Sonntag"
 LblMonat(xMonat - 1).ForeColor = vbGreen: LblTagName(Tag1 - 2).ForeColor = _
 vbGreen
End Sub