Public Class frmMain


    Private Sub TSBtnVertragsuebersicht_Click(sender As System.Object, e As System.EventArgs) Handles TSBtnVertragsuebersicht.Click
        Dim f As New Themenübersicht
        f.MdiParent = Me
        f.Show()
    End Sub
End Class