Android Question AsyncStreams is too slow !!

Sub Process_Globals
    Private nid As Int = 1
    
    Dim WiFi_Socket As Socket
    Dim TcpStreams As AsyncStreams
    'Dim ast As AsyncStreamsText
    Dim ServerSocket1 As ServerSocket

    Dim ServerIp As String = "192.168.1.50" 'IP Access point 
    Dim Port As Int = 808'    port
    
    Dim noti As Notification
    
    Dim data As String
    Dim connection As Boolean=False
    
    Dim userdisconnect As Boolean=False
    
    Private lock As PhoneWakeState
    
    Dim stg As AriaSharedPreferences
End Sub

Sub Service_Create
    lock.PartialLock
    
    WiFi_Socket.Initialize("WiFi_Socket")
    
    stg.Initialize("s5")
    
    ServerIp=stg.GetString("IpAddress","192.168.1.50")
    Port=stg.GetString("Port","808")
    
    Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_NEVER

End Sub

Sub WiFi_Socket_Connected (connected As Boolean)
    
    If connected = True Then
        Dim vibr As PhoneVibrate
        vibr.Vibrate(200)
        connection=True
        TcpStreams.Initialize(WiFi_Socket.InputStream,WiFi_Socket.OutputStream,"tcpStreams")
        Main.connectionState=1
        CallSub(Main,"SetState")
        StartService(Me)
        
    Else if userdisconnect=False Then 
        Dim vibr As PhoneVibrate
        vibr.Vibrate(500)
        connection=False
        
        Main.connectionState=2
        CallSub(Main,"SetState")
        
    Else If userdisconnect=True Then
        connection=False
        
        Main.connectionState=3
        CallSub(Main,"SetState")
        userdisconnect=False
'        Main.Button1.TextColor = Colors.RED
    End If
        
End Sub

Sub Activity_Create(FirstTime As Boolean)
 
    Activity.LoadLayout("test")

    pulse.Initialize("pulses",100)

End Sub

Sub pulses_tick

    If pul=True Then
        pul=False
        B4XSeekBar2.Value=0
        Starter.TcpStreams.Write(("A0").GetBytes("UTF8"))
    Else if pul=False Then
        pul=True
        B4XSeekBar2.Value=100
        Starter.TcpStreams.Write(("A100").GetBytes("UTF8"))
    End If
  
End Sub