Android Question Problem into Android TV

Sub Man_Click()
If pnlMenu.Visible=True Then
       Pause(1)
       pnlMenu.Visible=False
'...
...
...
End Sub

Private Sub Pause(Secondi As Int)
Dim Ti As Long
  Ti = DateTime.Now + (Secondi * 1000)
  Do While DateTime.Now < Ti
      DoEvents
  Loop
End Sub

    For k=100%y To 0%y Step -10%y
            secondi=.1
            Attendi2.Enabled=True
            imgsceriffo.Top=k
            imgfacesc.Top=k
Next

Sub Attendi2_tick
    If millesimi>=secondi Then
        Attendi2.enabled=False
        millesimi=0
    Else
       millesimi=millesimi+.1
    End If
End Sub