' Controls: 1 * Timer
Private Sub Form_Load()
  Timer1.Enabled = False
End Sub
 
Private Sub Command1_Click()
  ereignis1
  Timer1.Interval = 30& * 1000&
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Timer1.Enabled = False
  ereignis2
  Datenbankform.Option1.Value = True
End Sub

Gruss,

Zardoz