Option Explicit
 
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 Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
  On Error GoTo err_Handler
 
  Dim strStartPath As String
 
  strStartPath = Dir1.List(Dir1.ListIndex)
  ShellExecute Me.hWnd, "find", strStartPath, "", "", SW_SHOWNORMAL
  Exit Sub
 
err_Handler:
  MsgBox "Es ist ein Fehler aufgetreten." & vbCrLf & vbCrLf & _
    "Fehlernummer: " & Err.Number & vbCrLf & "Fehlerbeschreibung: " & _
    Err.Description, vbOKOnly + vbCritical
End Sub
 
Private Sub Drive1_Change()
  On Error Resume Next
 
  Dim sOldDrive As String
  Static InWork As Boolean
 
  If InWork Then Exit Sub
  InWork = True
 
  sOldDrive = Dir1.Path
  Dir1.Path = Left(Drive1.Drive, 1) & ":\"
 
  If Error <> "" Then
 
    MsgBox "Zugriff auf Laufwerk " & Drive1.Drive & " nicht möglich." _
      & vbCrLf & vbCrLf & "Fehlernummer: " & Err.Number & vbCrLf & _
      "Fehlerbeschreibung: " & Err.Description, vbOKOnly + vbCritical
 
    Drive1.Drive = Left(sOldDrive, 2)
    Dir1.Path = sOldDrive
 
  End If
 
  InWork = False
End Sub
 
Private Sub Form_Load()
  On Error Resume Next
 
  With Drive1
    .Top = 180
    .Left = 180
    .Width = 2300
  End With
 
  With Dir1
    .Top = Drive1.Top + Drive1.Height + Drive1.Top
    .Left = Drive1.Left
    .Width = Drive1.Width
  End With
 
  With Command1
    .Height = Drive1.Height
    .Top = Dir1.Top + Dir1.Height + Drive1.Top
    .Left = Drive1.Left
    .Width = Drive1.Width
    .Caption = "Suchfenster öffnen"
  End With
 
  With Me
    .Height = .Height - .ScaleHeight + Command1.Top + Command1.Height _
      + Drive1.Top
    .Width = .Width - .ScaleWidth + Command1.Left + Command1.Width + _
      Drive1.Left
    .Caption = "Windows-Suchfenster"
  End With
 
End Sub

Viel Spass,
R@lf