How To Enforce Initialization of a VB OLE Class Object

MORE INFORMATION

   If blnNotCreated Then Err.Raise vbObjectError, "MyServer", _
      "Object Not Yet Created! Please Call the Create Method First"
				

   If Not blnCreated then Err.Raise
				

Step-by-Step Example for Creating the Server

1. Start a new project in Visual Basic. Insert a Class Module (Class1), and set its instancing property to 1 - Creatable SingleUse and its Public property to True.
2. Add the following code to the Class Module:

         Private intData As Integer
         Private strData As String
         Private blnNotCreated
      
         Public Function Create(param1 As Integer, param2 As _
                      String) As Boolean
             blnNotCreated = False
             intData = param1
             strData = param2
         End Function
      
         Public Sub MyMethod()
             If blnNotCreated Then Err.Raise vbObjectError, _
              "MyServer", "Object Not Yet Created! Please Call _
              the Create Method First"
      
             MsgBox strData
         End Sub
      
         Private Sub Class_Initialize()
             blnNotCreated = True
         End Sub
   						

3. On the Tools menu, click Options, then click the Project tab, and set the Project Name to MyServer.
4. On the File menu, click Make EXE file to create an OLE server.

Step-by-Step Example for Creating the Client

1. Start a new project in Visual Basic. Form1 is created by default.
2. On the Tools menu, click References to add a reference to MyServer.
3. Add the following code to the Form_Click event of Form1:

         Private Sub Form_Click()
            Dim x As New MyServer.Class1
            x.Create 7, "hello"
            x.MyMethod
         End Sub
   						

4. Press the F5 key to run the program.