Private Sub Form_Load()
  Timer1.enabled = True
  Timer1.Interval = 1000
End Sub
 
Private sub Timer1_timer()
  Static lSeconds   As Long
  ' Stupide die Sekunden zählen
  lSeconds = lSeconds + 1
  ' bei 10 oder mehr Sekunden dieses Form entladen
  If lSeconds >= 10 Then Unload Me
end sub