Try This:
VB Code:
  1. Private Const BIF_NEWDIALOGSTYLE = &H40

  2.  
  3. Private Sub Command1_Click()

  4.     Dim sh As New Shell32.Shell

  5.     Dim str1 As Shell32.Folder2

  6.     Set str1 = sh.BrowseForFolder(Me.hwnd, "Select a Folder", BIF_NEWDIALOGSTYLE, ssfDRIVES)

  7.     If Not str1 Is Nothing Then MsgBox str1.Self.Path

  8. End Sub


Pradeep