Imports System.IO
Public Class main
Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim directory As New DirectoryInfo(“C:”)
Dim files As FileInfo() = directory.GetFiles()
For Each file As FileInfo In files
Dim a As CCWin.SkinControl.SkinListBoxItem
a.Text = file.Name
SkinListBox1.Items.Add(a)
Next
End Sub
End Class