Public Const CSIDL_COMMON_STARTMENU As Integer = &H16
 
    Private Const MAXPATH As Integer = 260
 
    Private Declare Auto Function SHGetSpecialFolderLocation Lib "shell32" _
        (ByVal hwndOwner As IntPtr, ByVal nFolder As Integer, ByRef ppidl As _
        Integer) As Integer
 
    Private Declare Auto Function SHGetPathFromIDList Lib "shell32" _
        (ByVal pidl As Integer, ByVal pszPath As System.Text.StringBuilder) As _
        Boolean
 
    Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Integer)
 
    Public Function GetSpecialFolderLocation(ByVal hWnd As IntPtr, ByVal csidl _
      As Integer) As String
        Dim path As New System.Text.StringBuilder(MAXPATH)
        Dim pidl As Integer
        Dim rpath As String = String.Empty
 
        If SHGetSpecialFolderLocation(hWnd, csidl, pidl) = 0 Then
            If SHGetPathFromIDList(pidl, path) Then
                rpath = path.ToString()
            End If
            CoTaskMemFree(pidl)
        End If
        Return rpath
    End Function

    Private Sub Test()
 
        Dim p As String = GetSpecialFolderLocation(Me.Handle, _
          CSIDL_COMMON_STARTMENU)
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov