Sub ExpandStatusBar
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "statusbar", "java.lang.String")
Dim p As Phone
Dim methodName As String
If p.SdkVersion >= 17 Then methodName = "expandNotificationsPanel" Else methodName = "expand"
r.RunMethod(methodName)
End Sub