Index: UI/Utils/MAppLauncher/MainForm.cls.xml
===================================================================
diff -u -r3790 -r3837
--- UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 3790)
+++ UI/Utils/MAppLauncher/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 3837)
@@ -967,30 +967,22 @@
  Do WL^vhDBG($$$Prefix_$G(Msg))
  ;Do WLS^vhDBG($$$Prefix2_$G(Msg),1)
  Quit
-
-
-
- ; ##class(UI.Lib.Ctrl.TComboBox).
 ]]></Implementation>
 </Method>
 
 <Method name="VBABuildMAppCmdLine">
 <Description>
-Opbouwen van de CmdLine voor het oproepen van MAppLauncher via VBA:
-cmdLine = Factory.Static("UI.Utils.MAppLauncher.MainForm").VBABuildMAppCmdLine()</Description>
+Opbouwen van de CmdLine voor het oproepen van MAppLauncher via VBA.
+Nieuwe implementaties moeten rechtstreeks de classmethods van "UI.Utils.Makova" oproepen !!! </Description>
 <ClassMethod>1</ClassMethod>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.String</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
- New ServerEnNamespace,CacheMakovaIP,CacheMakovaNSpace
- Set ServerEnNamespace=##class(TECH.Config.ConfigMgr).Instance().GetString("Makova_ServerEnNamespace")
- Set CacheMakovaIP=$P(ServerEnNamespace,"\",1)
- Set CacheMakovaNSpace=$P(ServerEnNamespace,"\",2)
- Quit ..#MakovaPath_" -a"_CacheMakovaIP_" -p7200 -n"_CacheMakovaNSpace_" -uCUSR -wCUSR -fUI.Utils.MAppLauncher.MainForm"
-  ; "\\Notes01\shared\common\Makova Run Time\smwrt.exe -a192.168.1.6 -p7200 -nADMIN1 -uCUSR -wCUSR -fUI.Utils.MAppLauncher.MainForm"
+	// Nieuwe implementaties moeten rechtstreeks de classmethods van "UI.Utils.Makova" oproepen !!! 
+	Quit ##class(UI.Utils.Makova).GeefMAppLauncherStartCommand()
 ]]></Implementation>
 </Method>
 
@@ -1001,7 +993,9 @@
 <ReturnType>%Library.String</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..#MakovaPath
+<Implementation><![CDATA[
+	// Nieuwe implementaties moeten rechtstreeks de classmethods van "UI.Utils.Makova" oproepen !!! 
+	Quit ##class(UI.Utils.Makova).GeefMakovaRuntimePath()
 ]]></Implementation>
 </Method>
 
@@ -1174,10 +1168,6 @@
 <Default>UI.Utils.MAppLauncher.MainForm</Default>
 </Parameter>
 
-<Parameter name="MakovaPath">
-<Default>\\Notes01\shared\common\Makova Run Time\smwrt.exe</Default>
-</Parameter>
-
 <Parameter name="TestMode">
 <Default>0</Default>
 </Parameter>