Private Sub DelayMicrosec(microseconds As UInt)
Dim Start As ULong = Micros
Do While True
Dim Check As ULong = Micros
If Check > microseconds + Start Then
Exit
End If
If Check Mod 100 = 0 Then
RunNative("yld", Null)
End If
Loop
End Sub
#if C
void yld(B4R::Object* o){
yield();
}
#End If