Android Question Check ports of VPS

#Region  Project Attributes
    #ApplicationLabel: Port Scan
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
Dim Socket1 As Socket
End Sub

Sub Globals
    Private EditText1 As EditText
    Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    Socket1.Initialize("Socket1")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Socket1_Connected(Connected As Boolean)As Boolean
  If Connected = True Then
      Msgbox("Porta aberta!","")
      Return True
  Else
      Msgbox("Porta fechada!", "")
      Return False
  End If
End Sub

Sub Button1_Click
    Socket1.Connect("198.50.211.32",EditText1.Text,3000)
End Sub