Probleme ScrollBar Listview

Bonjour a tous,

juste une ListView (MS common controls 6.0) sur une Form.
Faire une Listview pas trop large de maniere a forcer
la création d'une ScrollBar horizontale.
Mettre la Listview en mode "Report".

Dans le Form.Load, j'insere ce ceci :

Code:

---

1 2 3 4 5 6

Form1.ListView1.ColumnHeaders.Add , , "Colonne1" Form1.ListView1.ColumnHeaders.Add , , "Colonne2"   Form1.ListView1.ListItems.Add , , "Texte suffisamment long pour forcer la création d'une scrollbar horizontale"   Call SendMessage(Form1.ListView1.hwnd, LVM_SETCOLUMNWIDTH, 0, ByVal LVSCW_AUTOSIZE_USEHEADER)

---

Puis, dans un bouton, ceci :

Code:

---

Form1.ListView1.top = 0

---

Puis, dans un module :

Code:

---

1 2 3 4 5 6 7 8 9 10

Global Const LVM_FIRST As Long = &H1000 Global Const LVM_SETCOLUMNWIDTH As Long = LVM_FIRST + 30 Global Const LVSCW_AUTOSIZE_USEHEADER As Long = -2   Declare Function SendMessage Lib _ "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long

---

Au démarrage, la ScrollBar horizontale fonctionne
correctement. Mais si je click sur le bouton pour déplacer
la ListView, la ScrollBar horizontale ne reagit plus.

J'ai essayé de faire ensuite un "Refresh", sans succès...

Je pense voir résolu le problème en masquant
puis en ré-affichant la ScrollBar :

Code:

---

1 2	ShowScrollBar Form1.ListViewHisto.hwnd, SB_HORZ, False ShowScrollBar Form1.ListViewHisto.hwnd, SB_HORZ, True

---

Dans un module :

Code:

---

1 2 3 4

Global Const SB_HORZ As Long = 0   Declare Function EnableScrollBar Lib "user32.dll" (ByVal hwnd As Long, _ ByVal wSBflags As Long, ByVal wArrows As Long) As Long

---