Dim x As String
    Dim Largo As Long
    Dim Ancho As Long
    
    
    x = "bla bla bla bla bla bla bla bla bla bla!"
    Ancho = Printer.TextWidth(x)
    Largo = Printer.TextHeight(x)
    
    
    
    MSFlexGrid1.Col = 0
    MSFlexGrid1.Row = 0
    MSFlexGrid1.Text = x
    MSFlexGrid1.ColWidth(0) = Ancho + 50
    MSFlexGrid1.RowHeight(0) = Largo + 50

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    
    
    For i = 1 To Len(text1.Text) 'Recorres el text
        For j = i + 2 To Len(text1.Text)
            'Buscas si hay cadenas de 3 que sean iguales
            If Mid(text1.Text, i, 3) = Mid(text1.Text, j, 3) Then
                'aqui marcas el color
                text1.SelStart = j - 1
                text1.SelLength = 3
                text1.SelColor = vbRed
                text1.SelBold = True
                
                text1.SelStart = i - 1
                text1.SelLength = 3
                text1.SelColor = vbRed
                text1.SelBold = True
             End If
        Next j
    Next i
End Sub

Option Explicit

Private Sub Form_Load()
    Dim BD As Connection
    Dim Tb As Recordset

    Dim conexion As String
    
    Set BD = New Connection
    
    conexion = "Provider=SQLOLEDB.1;" & _
               "Persist Security Info=False;" & _
               "User ID= SA;" & _
               "pwd=;" & _
               "Initial Catalog= Master;" & _
               "Data Source=Servidor"

    On Local Error Resume Next
    BD.Open conexion
    If Err Then
        MsgBox Err.Number & vbCrLf & Err.Description
        Exit Sub
    End If
    On Local Error GoTo 0
    
    Set Tb = New Recordset
    Tb.Open "SELECT Name FROM Sysdatabases", BD
    Combo1.Clear
    While Not Tb.EOF
        Combo1.AddItem Tb!Name
        Tb.movenext
    Wend
    Tb.Close
    BD.Close

    set Tb = nothing
    set BD = nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    Dim i As Long
    i = MsgBox("¿Cerrar Form?", vbYesNo + vbQuestion, "Cerrar")
    
    If i = 6 Then 'Selecciono "si"
            MsgBox "adios"
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
    
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.text
                    case "Archivos"
                           ListView1.ColumnHeaders.Add 0, , "Columna1", ancho, alineación
                           ListView1.ColumnHeaders.Add 1, , "Columna2", ancho, alineación
                           ListView1.ColumnHeaders.Add 2, , "Columna3", ancho, alineación
                           ListView1.Move Izquierda, Arriba, Ancho, Largo
                           ListView1.Visible = True
                   case ....
        end select
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
        select case node.text
                    case "Archivos"   
    Load ListView1(ListView1.Count + 1) ' Aqui creas una nueva instancia del control
    ListView1(ListView1.Count).ColumnHeaders.Add 0, , "Columna1", ancho, alineación
    ListView1(ListView1.Count).ColumnHeaders.Add 1, , "Columna2", ancho, alineación
    ListView1(ListView1.Count).ColumnHeaders.Add 2, , "Columna3", ancho, alineación
    
    ListView1(ListView1.Count).Move Izquierda, Arriba, ancho, Largo
    ListView1(ListView1.Count).Visible = True
    end select
End Sub