Public Sub Main()
   Dim sCommand As String
 
   If Command$ <> "" Then
      sCommand = Mid$(Command$, 2, Len(Command$) - 2)
      If App.PrevInstance Then
         '...
         ' Proggy läuft bereits!
         ' Jetzt soll sCommand an App.PrevInstance übergeben werden.
         ' Die erste Instance soll sCommand verarbeiten.
         '...
         ' und dann die neue Instance beenden
         End
      Else
         StartView sCommand
      End If
   End If
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control