'Controls: 1 Timer-Control
Private Sub Form_Load()
  Timer1.Interval = 2000
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Me.WindowState = IIf(Me.WindowState = vbMinimized, vbNormal, vbMinimized)
End Sub

Gruss,

Zardoz