godsibig

Public Class Form1
Private Sub LoginButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoginButton.Click
Dim ip As String
Dim port As String
If SvComboBox.Text = 0 Then
ip = "203.144.137.9"
port = 6414
ElseIf SvComboBox.Text = 1 Then
ip = "127.0.0.2"
port = 8081
End If
If LoginButton.Text = "Login" Then
AxWinsock1.Connect(ip, port)
MainListBox.Items.Add("Connection To " & ip & ":" & port & "")
LoginButton.Text = "Logout"
Else
AxWinsock1.Close()
MainListBox.Items.Add("Disconnection...")
LoginButton.Text = "Login"
End If
End Sub
End Class