Imports System
Imports System.Runtime.InteropServices
Imports Shell32

Module Hello
    Sub Main()
        Dim shell As New Shell
        Dim folder As Folder
        Dim vRootFolder As Object = ShellSpecialFolderConstants.ssfWINDOWS
        folder = shell.BrowseForFolder(0, "Hello, COM(VB.NET) World!", 0, vRootFolder)
        If Not folder Is Nothing Then
            Marshal.ReleaseComObject(folder)
        End If
        Marshal.ReleaseComObject(shell)
    End Sub
End Module