Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim SpLis As Environment.SpecialFolder For SpLis = 0 To 43 If Not Char.IsNumber(SpLis.ToString()) Then ComboBox1.Items.Add(SpLis) End If NextEnd Sub[\CODE]Regards HEFIN DSOUZAAttachmentsDownload Sample (20740-7413-SpecialDirectoryList.rar)