Private Sub Winsock3_connect()
Dim cp As String
Dim sh As String
Dim tosend As String
  Dim ipadd As String
  Dim theip As String
  Dim ipdata As String
  Dim SplitIp() As String
  Dim I As Integer
  ipadd = ""
  theip = Winsock3.LocalIP
  SplitIp = Split(theip, ".")
  For I = 0 To UBound(SplitIp)
    ipdata = SplitIp(I)
    ipadd = ipadd + Chr(Val(ipdata))
  Next I
  tosend = Chr(3)
Winsock3.SendData loginPkt("[-KeepAlive-]", Winsock3.LocalIP, 0, "20", "[DE]", tosend)
End Sub

Private Sub Command5_Click()
Winsock3.Close
Winsock3.Connect "127.0.0.1", Val(Port)
End Sub