Private Sub MyApplication_StartupNextInstance _
 (ByVal sender As Object, _
  ByVal e As ApplicationServices.StartupNextInstanceEventArgs) _
  Handles Me.StartupNextInstance
 
    If args IsNot Nothing AndAlso args.Length >= 1 Then
       ReDim Preserve args(1)
       args(1) = args(0)
       CType(Me.MainForm, frmFarbeErsetzen).Processparameters(args)
    End If   
End Sub