HTML Code that Refers to CommonDialog ActiveX Control

[MartinLiss]

Some of you may have seen this thread which is about a tool for formatting forum posts. It's been reported by one user who has VB.Net installed that they get a "You Need to Have CommonDialog ActiveX Control Installed" error when they try to use the application's Gradient function. Here is the html code that refers to the common dialog.

Function GetColor(msg)
Dim Dlg
On Error Resume Next
Set Dlg = CreateObject("MSComDlg.CommonDialog")
  If Err.Number = 0 Then
    Err.Clear
    oWindow.alert(msg)
    Dlg.CancelError = True
    Dlg.ShowColor()
    If Err.Number = 0 Then
      Err.Clear
      GetColor = Clng(Dlg.Color) 
      Set Dlg = Nothing
    End If
  Else
      GetColor = -1
  End If
End Function

I have two questions.

• Have any of you that have VB.Net installed ever used the Gradient function in the forum tool app?
• How can I modify the above code so that a VB.Net person can use it?