--- a/RegressionTests__Win32OLETests.st	Wed Mar 30 03:35:02 2016 +0200
+++ b/RegressionTests__Win32OLETests.st	Wed Mar 30 03:44:41 2016 +0200
@@ -107,7 +107,8 @@
 !
 
 test03_CreateInstance
-    |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2|
+    |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2
+     ids visibleID params result|
 
     guid := (GUID clsidFromProgID:'InternetExplorer.Application'). 
     self assert:(guid notNil).
@@ -133,8 +134,14 @@
     self assert:(iWebBrowser2 notNil).
     iWebBrowserApp release.
 
+    "/ iWebBrowser2 setProperty:'Visible' value:true.
 self halt.
-    iWebBrowser2 setProperty:'Visible' value:true.
+    ids := iWebBrowser2 getIDsOfNames:(Array with:'Visible').
+    visibleID := ids first.
+
+    params := OLE_DISPPARAMS new.
+    params cArgs: 0.
+    result := iDispatch invokePropertyGet: visibleID with:params.
 self halt.
 
     iWebBrowser2 release.
@@ -145,7 +152,7 @@
     "
 
     "Created: / 30-03-2016 / 02:29:19 / cg"
-    "Modified: / 30-03-2016 / 03:33:51 / cg"
+    "Modified: / 30-03-2016 / 03:43:46 / cg"
 ! !
 
 !Win32OLETests class methodsFor:'documentation'!