<font color=blue>' Form1</font>
 
<font color=green>' Per Klick, die 2. Form anzeigen</font>
Private Sub cmdFolder_Click()
  Load Form2
  With Form2
    .Show 1
 
    <font color=green>' Rückgabewert prüfen</font>
    If .Tag <> "" Then
      <font color=green>' ausgewählten Order im Label anzeigen</font>
      Label1.Caption = .Tag
 
    Else
      <font color=green>' Abbrechen wurde geklickt</font>
      ...
    End If
End Sub

<font color=blue>' Form2</font>
 
<font color=green>' Laufwerkwechsel</font>
Private Sub Drive1_Change()
  Dir1.Path = Drive1-Path
  Dir1.Refresh
End Sub
 
<font color=green>' OK-Button</font>
Private Sub cmdOK_Click()
  Me.Tag = Dir1.Path
  Me.Hide
End Sub
 
<font color=green>' Abbrechen-Button</font>
Private Sub cmdCancel_Click()
  Me.Tag = ""
  Me.Hide
End Sub
 
<font color=green>' Form wird über das X-Symbol geschlossen</font>
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If UnloadMode <> 1 Then
    Cancel = True
    cmdCancel_Click
  End If
End Sub