Spanish Problemas con Sleep al reemplazar DoEvents

Sub Activity_Create(FirstTime As Boolean)
   
    If FirstTime Then       
        Activity.LoadLayout("login")
        imgSplash.Visible=True
        Splash       
    Else
        ''
    End If
End Sub

Sub Splash   
    wait(4)
    Activity.Finish
    StartActivity(Main2)   
End Sub


Sub wait(segundos As Int)   
    Dim ti As Long
    ti = DateTime.Now + (segundos * 1000)
    Do While DateTime.Now < ti
        DoEvents ' funciona correcto hace la pausa que necesito
        ' Sleep(0) ' No funciona es como que no existiera y no se realiza ninguna espera.
    Loop
End Sub

Sub Splash  
    Sleep(3000) '3 segundos
    Activity.Finish
    StartActivity(Main2)  
End Sub

Sub Globals
    Dim tmr As Timer
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        Activity.LoadLayout("login")
        imgSplash.Visible=True
        tmr.Initialize("tmr", 10000)
    Else
        ''
    End If
End Sub

Sub tmr_Tick
    Activity.Finish
    StartActivity(Main2)
End Sub

Sub Activity_Create(FirstTime As Boolean)
   
   If FirstTime Then
     Activity.LoadLayout("login1")
     imgSplash.Visible=True
     Splash
   Else
     ''
   End If
End Sub

Sub Splash
   wait For(Esperar(4)) complete 
   Activity.Finish
   StartActivity(Main2)
End Sub


Sub Esperar(segundos As Int) As ResumableSub
   Dim ti As Long
   ti = DateTime.Now + (segundos * 1000)
   Do While DateTime.Now < ti
     'DoEvents ' funciona correcto hace la pausa que necesito
      Sleep(0) ' No funciona es como que no existiera y no se realiza ninguna espera.
   Loop
   Return ""
End Sub

Sub Esperar(segundos As Int) As ResumableSub
   Sleep(segundos*1000)
   Return ""
End Sub

Sub Esperar(segundos As Int) 'As ResumableSub
   
    Dim ti As Long
    ti = DateTime.Now + (segundos * 1000)
    Do While DateTime.Now < ti
        DoEvents       
    Loop
End Sub