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