Private Sub FadeIn()
 
With Form1
         .Opacity = 0
 
          Do While .Opactiy < 1
                  .Borderstyle = None 'Versuch es mal damit. Da wird der 
                  ' BorderStyle bei jedem Durchlauf auf 'None' gesetzt
                  .Opacity = .Opacity + 0.025
                  .Refresh() 'Das ist der Grund warum der Tipp aus dem Forum 
                  ' net so recht will. Die Form muß nach jedem Durchlauf neu 
                  ' gezeichnet werden. 
                               Sonst bleibt alles schwarz.
           End Do
End With