layoutParameters = r.CreateObject2("android.view.WindowManager$LayoutParams", Array As Object(widthPixels, heightPixels, 0, 0, 2007,8+32+256+262144,-3), Array As String(i, i, i, i, i, i,i))
For i3= heightPixels To heightPixels/3 Step -10
YmoverPanelScreenshot=i3 'deberia ser i3
Log("moviendose con valor: " & YmoverPanelScreenshot)
Dim s As Long = DateTime.Now + 20
Do While DateTime.Now < s
DoEvents
Loop
r.Target=layoutParameters
r.SetField( "height" ,YmoverPanelScreenshot,"java.lang.int")
r.SetField("y",-YmoverPanelScreenshot,"java.lang.int")
Log("los new LP:" &layoutParameters)
r.Target = cwm
r.RunMethod4("updateViewLayout", Array As Object(ScreenShot, layoutParameters ),Array As String("android.view.View", "android.view.ViewGroup$LayoutParams"))
Next