Public Class Parent
 
    Dim CEnum As IEnumerator = Me.MdiChildren.GetEnumerator
 
    Private Sub Parent_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Text = My.Application.Info.CompanyName & " - " & _
        My.Application.Info.ProductName
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If Me.Opacity < 1 Then
            Me.Opacity = Me.Opacity + 0.1
        End If
    End Sub
 
    Private Sub BeendenToolStripMenuItem1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem1.Click
        Me.Close()
        Me.Dispose()
    End Sub
 
    Private Sub GradientNavigationButton2_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles GradientNavigationButton2.Click
 
        Me.GradientNavigationButton2.Active = True
        Me.GradientNavigationButton3.Active = False
        Me.GradientNavigationButton4.Active = False
        Me.GradientNavigationButton5.Active = False
        Me.GradientNavigationButton6.Active = False
        Me.GradientNavigationButton7.Active = False
        My.Forms.Teilnehmererfassung.MdiParent = Me
        My.Forms.Teilnehmererfassung.Dock = DockStyle.Fill
        'My.Forms.Teilnehmererfassung.Show()
        Do While CEnum.MoveNext
            Try
                With CType(CEnum.Current, Teilnehmererfassung) ' Hier musst Du 
                ' deine Form eintragen
                    ' Timer einfügen
                    Timer2.Start()
                End With
                Exit Do
            Catch ex As Exception
            End Try
        Loop
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        If My.Forms.Teilnehmererfassung.Opacity < 1 Then
            My.Forms.Teilnehmererfassung.Opacity = Me.Opacity + 0.1
        End If
    End Sub
End Class