Sub SetWifiApEnabled(Enabled As Boolean)
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "wifi", "java.lang.String")
Dim wc As JavaObject
wc.InitializeNewInstance("android.net.wifi.WifiConfiguration", Null)
wc.SetField("SSID", <ssid>)
r.RunMethod4("setWifiApEnabled", Array As Object(wc, Enabled), _
Array As String("android.net.wifi.WifiConfiguration", "java.lang.boolean"))
End Sub