GF(33, 33, 100, DateTime.Now)
Sub GF(lat As Float, lon As Float, altitude As Float, time As Long)
Dim r As Reflector
r.Target = r.CreateObject2("android.hardware.GeomagneticField", _
Array As Object(lat, lon, altitude, time), _
Array As String("java.lang.float", "java.lang.float", "java.lang.float", "java.lang.long"))
Dim declination As Float = r.RunMethod("getDeclination")
Dim fieldStrength As Float = r.RunMethod("getFieldStrength")
Dim x As Float = r.RunMethod("getX")
End Sub