Código PHP:
Private Sub txtText_Change()
Dim nLineas As Long
nLineas = SendMessageLong(TextBox1.Handle, &HBA, 0&, 0&)
TextBox2.Text = nLineas
End Sub
Vi también por internet que se puede contar los caracteres con SendMessageLong, pero siempre me esta dando 0, pienso que el WM no es el correcto, podria ser eso que no me cuenta las lineas? Lo ocupo saber para poder decirle al programa cuantas líneas hay en el momento de comparación.