加一个ListView控件，方法：菜单－>工程－>部件－>Microsoft Window Common Control 6.0 （后面为版本号）。再添加一个Picture控件，改名为picGreenbar。

　　 实现的代码如下：

Option Explicit

Private Sub Form Load()
   Dim i As Integer
   Dim iFontHeight As Long
   Dim iBarHeight As Integer
   Dim j As Integer
   Dim itmX As ListItem
   Dim ColHead As ColumnHeader
   ListView1(0).ColumnHeaders.Add , , "This is Just a Simple Example"
   ListView1(0).ColumnHeaders(1).Width = 3000

   '添加一些实验数据
'   For j = 1 To 33
'     Set itmX = ListView1(0).ListItems.Add()
'     itmX.Text = "This is item number " & CStr(j)
'   Next j

   Me.ScaleMode = vbTwips
   Picture1.ScaleMode = vbTwips
   Picture1.BorderStyle = vbBSNone
   Picture1.AutoRedraw = True
   Picture1.visible = False
   Picture1.Font = ListView1(0).Font
   iFontHeight = Picture1.TextHeight("b") + Screen.TwipsPerPixelY
   iBarHeight = (iFontHeight * 1)
   Picture1.Width = ListView1(0).Width
   '======
   Picture1.Height = iBarHeight * 2
   Picture1.ScaleMode = vbUser
   Picture1.ScaleHeight = 2
   Picture1.ScaleWidth = 1
   'draw the actual bars
   Picture1.Line (0, 0)-(1, 1), vbWhite, BF
   Picture1.Line (0, 1)-(1, 2), RGB(227, 241, 226), BF
   '======
   ListView1(0).PictureAlignment = lvwTile
   ListView1(0).Picture = Picture1.Image
End Sub