Private Sub calendar1_DblClick()
'Dim leider, woche
 
Dim myV As myNewVar
myV.leider = "Leider noch nicht aktiv!"
myV.woche = Calendar1.Object
 
'Dim infotext, woche, leider, anzeige
'woche = Calendar1.Object
'leider = "Leider noch nicht aktiv!"
'infotext = "Info"
'anzeige = (leider = woche)
MsgBox (myNewVar), 65, infotext
 
End Sub
Private Sub Calendar1_Click()
Dim woche
Dim quartal
woche = Calendar1.Object
quartal = Calendar1.Object
Label5.Caption = Calendar1.Object
Label6.Caption = Format(woche, "ww")
Label7.Caption = Format(quartal, "q")
End Sub
 
Private Sub Form_Load()
Dim woche
Dim quartal
Calendar1.Day = Format(Now, "dd")
Calendar1.Month = Format(Now, "mm")
Calendar1.Year = Format(Now, "yyyy")
 
Label5.Caption = Calendar1.Object
woche = Calendar1.Object
Label6.Caption = Format(woche, "ww")
quartal = Calendar1.Object
Label7.Caption = Format(quartal, "q")
End Sub
 
Private Sub mnuexititem_Click()
End
End Sub
 
Private Sub Timer1_Timer()
Label4 = Format(Now, "q")
Label3 = Format(Now, "hh.nn.ss")
Label2 = Format(Now, "dd.mm.yyyy")
Label1 = Format(Now, "ww")
End Sub