Private Sub mnupop1Dienst_Click()
   Static n
   Dim frmneu As frmDienstzeit
   n = n + 1
   Set frmneu = New frmDienstzeit
   frmneu.tag = n
   frmneu.Caption = "Dienstzeit von : " & MergeUserName
   frmneu.Show
   DienstWnds.Add frmneu, CStr(n)
End Sub