jj 22.09 calendar

app/DD-Record-Organiser/frmMain.vb

@@ -771,4 +771,15 @@ Public Class frmMain
         frm.MdiParent = MAIN_FORM
         frm.Show()
     End Sub
+
+    Private Sub ribbonMain_Merge(sender As Object, e As RibbonMergeEventArgs) Handles ribbonMain.Merge
+        'TODO: ribbonMain.Pages enhtält immer noch nicht die pageCalendar >:(
+        If e.MergedChild.Name = "ribbonCalendar" Then
+            For Each page As RibbonPage In Me.ribbonMain.Pages
+                If page.Name = "pageCalendar" Then
+                    Me.ribbonMain.SelectedPage = page
+                End If
+            Next
+        End If
+    End Sub
 End Class