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

In Ihrem Programm soll bei einem vorgegebenen Ereignis eine zusätzliche Form nur eine bestimmte Zeit eingeblendet und dann automatisch wieder ausgeblendet werden? Oder Sie möchten auf diese Art und Weise eine Begrüßungsform einblenden, die nicht durch den Anwender geschlossen werden muss? Dann versuchen Sie folgendes:

Sie platzieren auf der entsprechenden Form einen Timer und verwenden diesen Code:

Option Explicit
Private lSeconds As Long
 
Private Sub Form_Load()
  lSeconds = 0
  Timer1.Enabled = True
  Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_timer()
  ' Sekunden zählen
  lSeconds = lSeconds + 1
 
  ' bei 10 oder mehr Sekunden dieses Form entladen
  If lSeconds >= 10 Then 
    Timer1.Enabled = False
Unload Me
  End If
End Sub