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