'Alexandre, boa tarde! Então, realmente não postei as configurações do HScroll1. Mais segue um 'exemplo simples, ok? Crie em seu form o "MSFlexGrid1" e o "HScroll1" e coloque em seu form este 'código basicão.

 

Private Sub Form_Load()
    HScroll1.Min = 1
    HScroll1.Max = 100
    HScroll1.Value = 1

    With MSFlexGrid1
        .Cols = 100
        .Rows = 100
       
        For i = 0 To 99
            .TextMatrix(i, i) = "Teste " & i
        Next i
    End With
End Sub

Private Sub HScroll1_Change()
    MSFlexGrid1.TopRow = HScroll1.Value
End Sub

 

T+

nao funcionou, nao sei pq

fiz assim, e funcionou

 

Private Sub Form_Load()
    Me.MSFlexGrid1.FormatString = "Coluna 1|Coluna 2|Coluna 3|Coluna 4|Coluna 5|Coluna 6 |"
End Sub

Private Sub HScroll1_Change()
    MSFlexGrid1.LeftCol = Me.HScroll1.Value
End Sub

com o list tb funcionou legal assim

 

Private Sub Form_Load()
    For i = 1 To 30
        Me.List1.AddItem i
    Next i
End Sub

Private Sub HScroll1_Change()
    Me.List1.ListIndex = Me.HScroll1.Value
End Sub