Sub ToggleRecentApps
Dim r As Reflector
r.Target = r.RunStaticMethod("android.os.ServiceManager", "getService", Array As Object("statusbar"), _
Array As String("java.lang.String"))
r.Target = r.RunStaticMethod("com.android.internal.statusbar.IStatusBarService$Stub", "asInterface", _
Array As Object(r.Target), Array As String("android.os.IBinder"))
r.RunMethod("toggleRecentApps")
End Sub