Private Function WaitForSingleObject(ByVal hHandle As Integer, _
                                        ByVal dwMilliseconds As Integer) As _
                                        Integer
    End Function
...
    Public Function Wait(ByVal mSek As Integer) As Object 'Zeit in Millisekunden
        Wait = WaitForSingleObject(-1, mSek)
    End Function

Salzburger