Bueno trate de agregar el conectar directo pero no me funciona... les dejo como tengo el Frm Conect aver si me pueden ayudar.

 http://www.gs-zone.org/lt144044_aporte_conectar_desde_el_frmconnect.html#p144044

El problema que tengo es que cuando lo agrego me dice en esta parte ( la de parra)

If KyAscii = 13 Then 'Variable no definida y si lo borro.
CurServer = 0
IPdelServidor = IPTxt 'Esto lo reemplaze por "127.0.0.1"
PuertoDelServidor = PortTxt 'Esto lo reemplaze por "7666"
 
 
Call Audio.PlayWave(SND_CLICK)
 
UserName = NameTXT.Text
        Dim aux As String
        aux = PasswordTXT.Text
        UserPassword = PasswordTXT.Text
        If CheckUserData(False) = True Then
           frmMain.Socket1.HostName = CurServerIp 'Aca y aca me dicen variables no definidas
           frmMain.Socket1.RemotePort = CurServerPort 'Aca y aca me dicen variables no definidas
            'SendNewChar = False
            EstadoLogin = Normal
            Me.MousePointer = 11
            frmMain.Socket1.Connect
       End If
 
YO lo tengo asi:
 


Y me dice socket already connect cuando trato de entrar.

Pd: Con el old conectar puedo conectar directo.