Sub fadeinfadeout()
 
        daslabel.Text = "Ich bin ein 1. Beispiel-Satz"
 
        Do
            daslabel.[opacity](+1)
    System.Threading.Thread.Sleep(10)
        Loop Until dalabel.[opacity] = 100
 
        System.Threading.Thread.Sleep(5000)
 
        Do
            daslabel.[opacity](-1)
    System.Threading.Thread.Sleep(10)
        Loop Until dalabel.[opacity] = 100
 
        daslabel.Text = "Ich bin ein 2. Beispiel-Satz"
    End Sub

Gr??e

[AP!]

P.S.
Ich habe MSN, falls nochjemand MSN haben sollte, kann er mich ja addedn, dann k?nnen wir mal ?ber MSN labbern