Me.Opacity = 0.01
Do While Me.Opacity < 1.0
Me.Opacity += 0.1
Me.Refresh()
System.Threading.Thread.Sleep(100)
Loop
Me.Opacity = 1.0
1. Stellt die Durchsichtgkeit auf 00.1 also fast unsichtbar
2. führt eine schleifen aus : ,, weil Sichtbarkeitsgrad kleiner als 1.0 ´´...
3. Der ,,Refresh´´ also erneuerungs Code ist wichtig damit das Formular richtig angezeigt wird und alles normal darstellt , sonst würd sie schwarz werden
4. Dazwischen legen wir immer 100 Millisekunden Pause ein Somit kommt dieser Einblende Effekt zustande
Scroll Text
1. Timer erstellen, auf 100 ms stellen , Aktivieren
2. In den Timer:
Label.Text = Strings.Right(Label.Text, Len(Label.Text) - 1) & Strings.Left(Label.Text, 1)
In dem fall hab ich ein Label erstellt und lasse dieses nun abspielen
3. Code Starten
4. Have Fun