Form langsam einblenden VB-Version:  VB5, VB6
	Views:  437

Sie möchten beim Programmstart erreichen, dass sich die Form langsameinblendet. Oder es soll irgendwann ein zweites Fenster eingeblendet werden -aber eben langsam. Eine Möglichkeit ist, dies mit der API Sleep zu realisieren:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
  ' Deklaration der Breite der Form
  Dim lMaxWidth As Long
 
  lMaxWidth = Me.Width
 
  ' Form-Breite auf Null setzen
  Me.Width = 0
 
  ' Form anzeigen
  Me.Show
 
  ' so lange die Form ihre Breite nicht erreicht hat  
  While Me.Width < lMaxWidth
    ' stückweise einblenden
    Me.Width = Me.Width + 30
    Me.Refresh
    Sleep 30
  Wend
 
End Sub