Private Sub PrintList(Byref lstListBox As Listbox)
      Dim i As Long
      If lstListBox.Listcount < 1 Then Exit Sub
      For i=0 To lstListBox.Listcount - 1
            If i Mod 2 = 0 Then
                   Printer.Print lstListBox.List(i) & String(2,vbTab)
            Else
                   Printer.Print lstListBox.List(i)
            End If
      Next
End Sub