Lave objecter uden at tegne dem på formen

Kan man ikke bare

Dim MyFileBOx as FileListBOx?

Og så bruge Set?

øhh kan du så ikke bare bruge Dir()

Private Sub Form_Load()
Dim strPath As String
Dim strName As String

  strPath = "C:\Mappe\"
  strName = Dir(strPath, vbDirectory)

  Do While strName <> ""
    If strName <> "." And strName <> ".." Then
      If (GetAttr(strPath & strName) And vbDirectory) = vbDirectory Then
        Debug.Print strName '<-- Mappe
          Else
        Debug.Print strName '<-- File
      End If
    End If
    strName = Dir
  Loop

End Sub