'Instanzvariebel der HauptForm
    Dim al As New ArrayList
    Private Const wh As Integer = 100
    Private Const loops As Integer = 10
    Private dec As Integer = Math.Ceiling(wh / loops)

'Einblendeffekt
        Dim sb As Rectangle = Screen.GetWorkingArea(New Point(0, 0))
 
        Dim f1 As New fPopUp
 
        f1.Left = sb.Width - f1.Width
        al.Add(f1)
        f1.Show()
 
        f1.Label1.Text = TextBox1.Text
 
 
        For i As Integer = 0 To wh
            f1.Height = i
            f1.Top = sb.Height - i
            f1.Opacity = i / wh
            f1.Refresh()
        Next

'Ausblendeffekt
        If al.Count = 0 Then Return
        Dim f1 As Form = al(0)
 
        Dim sb As Rectangle = Screen.GetWorkingArea(New Point(0, 0))
 
        f1.BringToFront()
 
        For i As Integer = wh To 0 Step -1
            f1.Height = i
            f1.Top = sb.Height - i
            f1.Opacity = i / wh - 0.001
            f1.Refresh()
        Next
 
        f1.Dispose()
        al.RemoveAt(0)

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################