Private Declare Function WaitForSingleObject Lib "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
 
Public Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function
 
Private Sub Command1_Click()
ereignis1
wait 30000
ereignis2
    Datenbankform.Option1.Value = True
End Sub