Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) _
As Long

Private Sub Command1_Click()
' Öffnet den Explorer und markiert das gewünschte
' Verzeichnis
    ShellExecute Me.hWnd, "explore", "D:\Programme", _
    vbNullString, vbNullString, 1
' oder auch
    'Shell "explorer.exe /n,/e,/select,D:\programme", 1
End Sub

Private Sub Command2_Click()
' Markiert eine Datei im Explorer
    Shell "explorer.exe /n,/e,/select,D:\test.txt", 1
End Sub