Kasa (stampanje i problem sa load)

Code:

Private Sub cmdUnesiRacun_Click()
List3.Clear
Datum = txtDatum.Text
Valuta = Valuta.Text
Sifra = txtSifraRacun.Text
ImeArtikla = txtImeArtiklaRacun.Text
Kolicina = txtKolicina.Text
Cena = txtCena.Text
List2.AddItem "Datum: " & Datum & ", " & "Sifra: " & Sifra & ", " & "Ime Artikla: " & ImeArtikla & ", " & "Kolicina: " & Kolicina & ", " & "Cena: " & Cena & Valuta & "."
Valuta.Text = ""
txtSifraRacun.Text = ""
txtImeArtiklaRacun.Text = ""
txtKolicina.Text = ""
txtCena.Text = ""
List3.AddItem "Datum: " & Datum & ", " & "Sifra: " & Sifra & ", " & "Ime Artikla: " & ImeArtikla & ", " & "Kolicina: " & Kolicina & ", " & "Cena: " & Cena & Valuta & "."

'List3.AddItem "RAÈUN"
'List3.AddItem Form2.txtIme.Text
'List3.AddItem Datum
'List3.AddItem "Šifra: " & Sifra
'List3.AddItem ImeArtikla
'List3.AddItem "Kolièina: " & Kolicina
'List3.AddItem "Cena: " & Cena & Valuta
cmdSacuvajRacun_Click
End Sub

Code:

Private Sub List2_Click()
List3.ListIndex = List2.ListIndex
End Sub

Code:

Private Sub cmdStampaj_Click()
On Error GoTo err
If List3.ListIndex = -1 Then Exit Sub 'Ako nije nista selektovano  u skrivenoj listi
      MsgBox "Sada æe poèeti štampanje zadnjeg raèuna koji ste izdali na vašem default štampaèu", vbInformation, "Information"
      Printer.Print Form1.List3.Text
      Printer.EndDoc
Exit Sub
err:
MsgBox err.Description
End Sub

Code:

Private Sub List2_Click()
On Error Resume Next
List3.ListIndex = 0
End Sub

Code:

List3.ListIndex = 0

Code:
Private Sub List2_Click()
On Error Resume Next
List3.ListIndex = 0
End Sub

Code:
Private Sub List2_Click()
On Error Resume Next
List3.ListIndex = 0,1,2,3,4,5,6
End Sub

Code:

Private Sub StampajListBox(list as ListBox)
list.ListIntdex ....
.......