public class Test public Shared Sub Main Console.WriteLine(My.Computer.FileSystem.SpecialDirectories.Programs) End SubEnd class C:\Documents and Settings\Joe\Start Menu\Programs