Dim CEnum As IEnumerator = Me.MdiChildren.GetEnumerator
        Do While CEnum.MoveNext
            Try
                With CType(CEnum.Current, frmxy) ' Hier musst Du deine Form 
                ' eintragen
                          ' Timer einfügen
                          Timer1.Start
                End With
                Exit Do
            Catch ex As Exception
            End Try
        Loop
 
Private Sub Timer1_Elasped(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Elasped
        If Me.Opacity < 1 Then
            Me.Opacity = Me.Opacity + 0.1
        End If
    End Sub

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