Public Class Form1
    Inherits System.Windows.Forms.Form 
 
Dim Zeit As Boolean
 
 
 
Private Sub wait5()
 
        Zeit = False
        Timer1.Start()
 
        Do Until Zeit = True
            Application.DoEvents()
        Loop
 
    End Sub
 
 
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
        Zeit = True
        Timer1.Stop()
 
    End Sub

Gruß
Christoph