Load frmtemp
  With frmtemp
    <font color=green>' CommonDialog positionieren</font>
    .Move 5000, 500, 0, 0
    .Show
 
    On Error Resume Next
    With .CommonDialog1
      .CancelError = True
      .ShowOpen
    End With
  End With
  Unload frmtemp