'
'   /////////////////////////////////////////////////////////////
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandesido //
'   // o achicado, si es en base a este codigo es requerido    //
'   // el agradacimiento al autor.                             //
'   /////////////////////////////////////////////////////////////
 
Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1
 
Private vhwnd                                    As Long
 
Public Property Get Textbox_hwnd() As Long: Textbox_hwnd = vhwnd: End Property
Public Property Let Textbox_hwnd(vData As Long): vhwnd = vData: End Property
 
Public Function LineCount() As Long
    LineCount = SendMessage(vhwnd, EM_GETLINECOUNT, 0&, 0&)
End Function
Public Function LineLen(CharPos As Long)
    LineLen = SendMessage(vhwnd, EM_LINELENGTH, CharPos, 0&)
End Function
Public Function GetLineFromChar(CharPos As Long) As Long
    GetLineFromChar = SendMessage(vhwnd, EM_LINEFROMCHAR, CharPos, 0&)
End Function
Public Function GetCharFromLine(LineIndex As Long)
    If LineIndex < LineCount Then GetCharFromLine = SendMessage(vhwnd, EM_LINEINDEX, LineIndex, 0&)
End Function
Public Function GetLineStr(LineIndex As Long) As String
Dim StrArray()                          As Byte
Dim lngLineLen                          As Long
    If Not LineIndex >= LineCount Then
        lngLineLen = LineLen(GetCharFromLine(LineIndex))
        If Not lngLineLen < 1 Then
            ReDim StrArray(lngLineLen + 1)
            StrArray(0) = lngLineLen And 255
            StrArray(1) = lngLineLen \ 256
            SendMessage vhwnd, EM_GETLINE, LineIndex, StrArray(0)
            GetLineStr = Left$(StrConv(StrArray, vbUnicode), lngLineLen)
        End If
    End If
End Function
 
 

 
Private Sub Form_Load()
Dim ct                                          As clsTexboX
Dim i                                           As Long
Set ct = New clsTexboX
    With Text1
        .Text = "Clase By HTTP://InfrAngeluX.Sytes.Net/" & vbCrLf & _
                "Miguel" & vbCrLf & _
                "Angel" & vbCrLf & _
                "Ortega" & vbCrLf & _
                "Avila" & vbCrLf & _
                "Alias" & vbCrLf & _
                "BlackZeroX"
    End With
    With ct
        .Textbox_hwnd = Text1.hwnd
        For i = 0 To .LineCount - 1
            MsgBox .GetLineStr(i)
        Next i
    End With
End Sub