Private Sub Form_Load()
  MsgBox "dbverbinden"
  Call dbverbinden
 
  MsgBox "lblDateianzahl.Caption..."
  lblDateianzahl.Caption = search("", "", "A", frmDatabase, _
    frmDatabase.flexmp3) & _
    " Dateien gefunden, die mit A beginngen"
 
  MsgBox "Call Stopmp3..."
  Call stopmp3(frmDatabase.lblPlayer, frmDatabase.lblreminetime)
 
  ' Erstellen der Listview für die playlist
  MsgBox "ListView erstellen..."
  With playlist
      .ColumnHeaders.Add , , "Num:", 700
      .ColumnHeaders.Add , , "Artist:", 1900
      .ColumnHeaders.Add , , "Titel:", 1900
      .ColumnHeaders.Add , , "dosname:", 1900
      .ColumnHeaders.Add , , "pfad:", 1900
      .View = lvwReport
      .FullRowSelect = True
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de