Display a files or folder view explorer to form in VB

Here's the code:

	Private Sub Form_Load()
	Dim b As Object
	Set b = Controls.Add("Shell.Explorer", "Browser", Me)
	b.Object.Navigate2 "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
	b.Visible = True
	End Sub

view raw explorer.vb hosted with ❤ by GitHub