Article ID: 190673
Article Last Modified on 5/13/2003
Option Explicit
Private Sub Form_Activate()
' Uncomment the next line to show the scroll bar as Flat.
' For this to work you must make sure that you don't have
' FlatScrollBar set to True in the properties window of the ListView.
'ListView1.FlatScrollBar = True
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim y As Integer
y = 1
' Add some items to the ListView control
For i = 1 To 40
ListView1.ListItems.Add Text:="test" & Str(i), Icon:=y
y = y + 1
If y = 5 Then y = 1
Next i
End Sub
ListView1.FlatScrollBar = True
Additional query words: kbDSupport kbDSD kbCtrl kbVBp kbVBp600bug
Keywords: kbbug KB190673