Zitat von FuDD Code: Private Sub wait(ByVal interval As Integer) Dim sw As New Stopwatch sw.Start() Do While sw.ElapsedMilliseconds < interval Application.DoEvents() Loop sw.Stop() End Sub is zwar .NET aber solltest du hinbekommen... C# ist auch .net :roll:
Private Sub wait(ByVal interval As Integer) Dim sw As New Stopwatch sw.Start() Do While sw.ElapsedMilliseconds < interval Application.DoEvents() Loop sw.Stop() End Sub
Stichwortwolke anzeigen
Foren-Regeln