File1.Path = "C:\windows\favorites"
website(0).Caption = Left(File1.List(0), Len(File1.List(0)) - 4)
For i = 1 To File1.ListCount - 1
Load website(i)
website(i).Caption = Left(File1.List(i), Len(File1.List(i)) - 4)
Next i

name one of your form menus website and give it a index of 0, put this in your form1.load and everything will work good