Public Class Parent
 
      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
' 1. Möglichkeit
        My.Forms.Teilnehmererfassung.MdiParent = Me
        My.Forms.Teilnehmererfassung.Dock = DockStyle.Fill
        My.Forms.Teilnehmererfassung.Show()
' 2.Möglichkeit
Dim document As New Teilnehmererfassung
        document.MdiParent = Me
        document.Anchor = AnchorStyles.None
        document.Show()
        document.Location = New Point((document.MdiParent.ClientSize.Width - _
          document.Width) / 2, (document.MdiParent.ClientSize.Height - _
          document.Height) / 2)
Timer2.Start
End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
' 1. Möglichkeit
        If My.Forms.Teilnehmererfassung.Opacity < 1 Then
            My.Forms.Teilnehmererfassung.Opacity = Me.Opacity + 0.1
        End If
' 2. Möglichkeit
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
End Class

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE