German Mit Tablet - Anrufe machbar!?

Dim p As PhoneCalls
StartActivity(p.Call(„123456789“))

Private Sub Button1_Click
    If CheckeSIM_Exists = 0 Then
        ToastMessageShow("Keine SIM-Karte gefunden.", True)
    Else
        ToastMessageShow("SIM-Karte ist vorhanden.", True)
    End If
End Sub

#Region "SIM_Auslesen"
Sub CheckeSIM_Exists As Integer
    Dim telMgr As JavaObject = GetContext.RunMethod("getSystemService", Array("phone"))
    Dim simState As Int = telMgr.RunMethod("getSimState", Null)
       
    Return simState
End Sub

Sub GetContext As JavaObject
Return GetBA.GetField("context")
End Sub

Sub GetBA As JavaObject
    Dim jo As JavaObject
    Dim cls As String = Me
    cls = cls.SubString("class ".Length)
    jo.InitializeStatic(cls)
    Return jo.GetFieldJO("processBA")
End Sub
#End Region