[VB6] Nascodere la scrollbar di una listbox

[AlpunoVir]

L'esempio riportato è stato da me adattato e FUNZIONA !
Il segreto è inserire un richiamo a ShowScrollBar in Lista_Scroll()
Premetto che nel mio progetto ci sono 4 listbox sistemate in modo da simulare una griglia.
Il primo spezzone di codice fa parte dell'ultimissima parte della Sub deputata a popolare le 4 listbox. Eccolo :

 
      '--- l'ultima listbox HA la scroll bar
      For i = 0 To Lista.Count - 2
         Z = ShowScrollBar(Lista(i).hwnd, 1, False)
      Next
      Exit Sub

Altro codice, sempre perfettamente funzionanante.

 
Sub UpdateList(Index As Integer)
     Dim i As Integer
     For i = 0 To Lista.UBound
       Lista(i).ListIndex = Lista(Index).ListIndex
       Lista(i).TopIndex = Lista(Index).TopIndex
     Next i
End Sub

Private Sub Lista_Scroll(Index As Integer)
   Dim i As Integer
   Dim Z As Long
   UpdateList (Index)
   '--- l'ultima lista a destra HA la scroll bar 
   For i = 0 To Lista.Count - 2
      Z = ShowScrollBar(Lista(i).hwnd, 1, False)
   Next
End Sub