Connecting within the Active_Create Screen caused no connection to be established at all. Although it compiled the connected status was not shown.Lets start from the beginning.
Why do you need to connect to an IP in ServerSocket1_NewConnection?
The socket is already connected.
Sub Button1_Click 'connect Socket1.Initialize("Socket1") 'Set correct ServerIp Socket1.Connect(EditText1.Text,EditText2.Text,3000)' IP, Port, Timeout ProgressDialogShow("Connecting...") End Sub
Sub Button2_Click Socket1.Close End Sub
Sub Button4_click ExitApplication End Sub