Scrollbar horizontal de un MSHFlexGrid

[Beakdan]

Usa la función SendMessage de la API...

Código:

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
        ByVal hwnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        ByRef lParam As Any) As Long

Private Const WM_VSCROLL        As Long = &H115&
Private Const SB_BOTTOM         As Long = &H7&

Private Sub Command1_Click()
Dim tmpStr As String
Static i As Long
    tmpStr = "Fila " & i & Chr(9) & "Celda " & (i)
    MSHFlexGrid1.AddItem tmpStr
    i = i + 1
    SendMessage MSHFlexGrid1.hwnd, WM_VSCROLL, SB_BOTTOM, ByVal 0&
End Sub

Espero que el código te de una idea.