Sub OpenLocalSocket (LocalSocketName As String) As AsyncStreams
Dim localsocket As JavaObject
Dim address As JavaObject
address.InitializeNewInstance("android.net.LocalSocketAddress", Array(LocalSocketName))
localsocket.InitializeNewInstance("android.net.LocalSocket", Null)
localsocket.RunMethod("connect", Array(address))
Dim astream As AsyncStreams
astream.Initialize(localsocket.RunMethod("getInputStream", Null), _
localsocket.RunMethod("getOutputStream", Null), "astream")
Return astream
End Sub