frm_main.Refresh
 
 
  ' Automatische Aktualisierung des Fensters sperren
  lRet = LockWindowUpdate(frm_main.hWnd)
  If lRet = 0& Then
    Call MsgBox("Can't lock window " & _
      frm_main.hWnd, _
      vbOKOnly + vbCritical)
    Exit Sub
  End If
 
  ' Mauszeiger auf Sanduhr setzen
  Screen.MousePointer = vbHourglass
 
' ab hier Routine....
 
  ' Aufheben der Aktualisierungssperre für das Fenster
  lRet = LockWindowUpdate(0&)
 
 ' Mauszeiger wieder normal setzen
  Screen.MousePointer = vbNormal