uhmm no veo ni un problema pueda ser que le estas dejando un espacio al

Text1.Text = Text1.Text & _

"*** Conexion establecida." & vbCrLf, alli si te da error de sintaxis tiene que estar junto

Private Sub Winsock1_Connect()
 
'desplegamos un mensaje en la ventana
 
Text1.Text = Text1.Text & _
"*** Conexion establecida." & vbCrLf
 
'desplazamos el scroll
 
Text1.SelStart = Len(Text1.Text)
 
End Sub

pero weno capaz se otro problema tienes que detallar un poko mas tu problema

Ok gracias Seba123neo logre sacar la cantidad de registros que tengo en la tabla pasandole el RecordCound.

@░▒▓BlackZeroҖ▓▒░  ta weno el code gracias, pero no logro entender porque ami me falla el que mostre anteriormente si solo le toy adjuntando la fecha

With RSTIdentifi
        LimpiarTXT Me
        If .RecordCount > 0 Then
            .MoveLast
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & String(7 - Len(Trim(Str(Val(!NRegistro) + 1))), "0") + Trim(Str(Val(!NRegistro) + 1))
        Else
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & "0000001"
        End If
    End With

Si quito la el año normal me genera los codigos asi 0000001, 0000002, 0000003.... y asi sucesivamente como me pideron para generar los codigos pero que valla el año adelante eh se me ocurrio aumentar solo esta parte Format(Date, "YYYY") & "-" & pero toma los ultimos 4 digitos y las pone como fecha oseqa me genera de esta manera 2009-0002010 alguna idea de que hago mal en el codigo??? solo esa duda necesito saber..

Wenas tengo 2 problemas la

1era, es que necesito generar un codigo de esta manera "2009-0000001, 2009-0000002......" ok lo del 2009 es el año estoy utilizando este codigo

    With RSTIdentifi
        LimpiarTXT Me
        If .RecordCount > 0 Then
            .MoveLast
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & String(7 - Len(Trim(Str(Val(!NRegistro) + 1))), "0") + Trim(Str(Val(!NRegistro) + 1))
        Else
            lblNumReg.Caption = Format(Date, "YYYY") & "-" & "0000001"
        End If
    End With

pero al darle Nuevo me genera de esta manera: 2009-0000001, y cuando agrego un segundo dato me muestra de esta manera 2009-0002010, como veran los ultimo 4 digitos se ponen como fecha 2010 no se a que se debe eso, me deberia de mostrar 2009-0000002, y asi suecivamente no se di alguien me puede hechar una manito.

y el 2do problema era sobre el DataCombo necesito que un Label me muestre la cantidad de Item que contiene el DataCombo pero no logro sacar la cantidad no si alguien me hecha una manito vi una propiedad VisibleCount, pero lo unico que me muestra es 0..???

wenas, justamente yo andava buscando algo parecido y encontre una clase para los text, fijate, es ta muy weno el ejemplo, tiene la opcion de pasar a otro text, pulsando la tecla TAB, las flechas direccionales y el enter, y otras opciones mas.... 

http://www.elguille.info/colabora/vb2006/msr_lupa689_AmpliarTextBox.htm

Salu2

mira este ejemplo capaz te sea de ayuda.

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/111-ocx-para-scroll-bar-en-formulario-picturebox.htm

Salu2

upss, perdon tienes toda la razon 

Form2.show

y para ocultar el primer form, Form1.hide o Unload Me......

wenas Leandro eh yo tambien tengo una laptop y probe el code k pusistes pero nada no muestra la tecla presionada pero solo la fn las demas si muestran?? alguna idea de cual es el problema??

como algo asi, coloca un Text1, List1, y dos Botones en el formulario

Option Explicit
 
Dim a, longitud, n, x
 
Private Sub Command1_Click()
    a = Text1
    longitud = Len(a) 'Para saber la cantidad de caracteres
 
    For n = 1 To longitud
        x = Left(a, n)
        List1.AddItem UCase(x)
    Next n
End Sub
 
Private Sub Command2_Click())
    Text1 = ""
    List1.Clear
    Text1.SetFocus
End Sub

Espero que te sirva de algo Salu2

pero que onda estas repitiendo dos veces  !medidaancho = ListView1.ListItems(2) y !medidalargo = ListView1.ListItems(2) y donde esta la 3  

With RsDetalleFacturaPlotter
    .Requery
    .AddNew
    !material = ListView1.ListItems(1)
    !medidaancho = ListView1.ListItems(2)
    !medidalargo = ListView1.ListItems(3) 'aca va 3 xD
    !cantidad = ListView1.ListItems(4)
    !descuento = ListView1.ListItems(5)
    !importe = ListView1.ListItems(6)
    !fechadeentrega = ListView1.ListItems(7)
    .Update
End With