FIX: VJ6 COM DLL: Function/Interface Marked Restricted or Automation Type Not Supported in VB (214409)

RESOLUTION

• Method 1: Use CreateObject( ) method in Visual Basic to use the DLL (late binding).
• Method 2: Treat the method as a property (early binding).
• Method 3: Edit the .tlb to correct the typo and rebuild it (early binding). The details of this workaround are beyond the scope of this article.

Java COM DLL Source Code

import com.ms.com.*;

/** compiled to 'Project2.dll'
 * @com.register ( clsid=151A5839-A724-11D2-B1B9-00C04FC22764, typelib=151A583A-A724-11D2-B1B9-00C04FC22764 )
 */ 

public class MyCOMClass {
	private Variant m_variant = new Variant("Merry Christmas");

	public void MyCOMClass( ) {
	}

	public Variant getPhrase( ) {
		return m_variant;
	}
}
				

METHOD 1: Late Binding

Private Sub Command1_Click()
   Dim vj As Object
   Set vj = CreateObject("Project2.MyCOMClass")
   Text1.Text = vj.getPhrase
End Sub
				

METHOD 2: Early Binding Using Properties

Public vj As New Project2.MyCOMClass

Private Sub Command1_Click()
    Text1.Text = vj.phrase
End Sub
				

METHOD 3: Edit .tlb