Visual Basic - Imprimir un listbox y labels

hola lo k kiero es imprimir el contenido de un listbox
y ademas 4 labels k tengo encima a modo d titulo.Hay un metodo k kreo k imprime el formulario kompleto con to los controle lo cual no m sirve y el otro kreo k solo imprime lineas circulos y esas cosas.Ayuda grasias

Imprimir un Listbox:
Private Sub cmdImprimir_Click()
Call PrintL(List1)
End Sub
Public Function PrintL(aList As ListBox)
Dim Nbr As Long
Printer.Print Tab(4), "ListBox print demo"
Printer.Print Tab(10), Label1.Caption
Printer.Print Tab(10), Label2.Caption
Printer.Print Tab(10), Label3.Caption
Printer.Print Tab(10), Label4.Caption
Printer.Print
For Nbr = 0 To aList.ListCount - 1
Printer.Print aList.List(Nbr)
Next Nbr
Printer.EndDoc
End Function
Nota: Tab(ancho) capturas el ancho o los espacios donde se empezará a imprimir, si tienes duda consulta la ayuda de VB, si deseas mostrar varias etiquetas en un sola linea concatenalo con espacio es decir:
Printer.Print Tab(10), Label1.Caption + Space(20) + Label2.Caption
SALUDOS!!!