Aviso Birthday4

Aviso/frmHauptfenster.vb

@@ -2838,6 +2838,14 @@ Public Class frmHauptfenster
         BürgschaftenExcelToolStripMenuItem.Visible = False
 
 
+
+        If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
+            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+            Dim f As New frmAvisoBirthday
+            f.ShowDialog(frmGrayOut)
+            frmGrayOut.Close()
+        End If
+
     End Sub
 
     WithEvents timerStart As New Timer