Problem with OCX control fixed by a messagebox.

[Elias Montoya]

Im trying to fix BasictoPHP's DHTMLEdit support, because it doesn't work on windows 7. Easy stuff. However i am getting stuck with something that should be easy... and adding a simple message box fixes everything...

Code Select Expand

   Local Dh   As IDHTMLEdit
   Local sPar  As String
   Local wPar  As wString
   Local vPar  As Variant
   
   Dh = OC_GetDispatch(HWND_STEP10_OCXCONTROL1)

This doesn't work...   

Code Select Expand

   If IsObject(Dh) Then
      sPar = "C:\Users\Diamante\Documents\test.html"
      vPar = sPar           
      Dh.NewDocument
      Dh.LoadDocument vPar
      wPar = Only_Path(sPar)     
      Dh.BaseURL = wPar           
      dh.refresh
      Dh = Nothing     
   End If

But this works just fine after closing the message box...

Code Select Expand

   If IsObject(Dh) Then
      sPar = "C:\Users\Diamante\Documents\test.html"
      vPar = sPar           
      Dh.NewDocument
      MsgBox "ocus pocus"
      Dh.LoadDocument vPar
      wPar = Only_Path(sPar)     
      Dh.BaseURL = wPar           
      dh.refresh
      Dh = Nothing     
   End If

I must be doing something wrong. Any ideas what is it? 

[Elias Montoya]

Im sorry, im not sure this post goes here... it's not a firefly issue, but a question about my own code.