Eine Form nur eine bestimmte Zeit einblenden II VB-Version:  VB5, VB6
	Views:  528

Wie man eine zusätzliche Form für kurze Zeit mittels des Timer-Steuerelements einblendet wurde schon beschrieben. Nun taucht die Frage auf: Und wie mach ich das, wenn ich - aus welchen Gründen auch immer - kein Timer-Steuerelement verwenden will? Geht das dann auch? Die Antwort ist: ja, das geht mit der Timer-Funktion. Und zwar so:

Erstellen Sie ein neues Projekt mit zwei Formen. Auf Form 1 setzen Sie noch einen CommandButton und dann kommt dieser Code in den Code-Teil der Form 1:

Private Sub Command1_Click()
  Dim vTime As Variant
 
  Load Form2
  Form2.Show , Me
  Me.Enabled = False
  vTime = Timer
  Do While Int(Timer - vTime) < 5' Form für 5 Sekunden einblenden
    DoEvents
  Loop
  Unload Form2
  Form1.Show
End Sub