Normally located here:

      C:\Program Files\Microsoft Visual Studio\VB98\Wizards\

Then

      CLSSBLD.DLL

 

Run regsvr32.exe on these

 

API Viewer is in there somewhere

 

 

 

The word "Set" is often required. Omitting this in the following would compile but go through the Get routine instead and error in runtime.

 

Private Sub Class_Initialize()

    Set Me.Employee = New Employee
End Sub

 

 

In loops there are two options

Do Until rsTD.EOF
    Dim cTimeSheet As New clsTimeSheet
    cTimeSheet.Employee.EmpeeNo = rsTD!EmpeeNo
    Call cJS.colTimeSheets.AddTimeSheet(cTimeSheet, lngMaxEmp)

    Set cTimeSheet = Nothing

    rsTD.MoveNext
Loop

Dim cTimeSheet As New clsTimeSheet

Do Until rsTD.EOF
    Set cTimeSheet = New clsTimeSheet
    cTimeSheet.Employee.EmpeeNo = rsTD!EmpeeNo
    Call cJS.colTimeSheets.AddTimeSheet(cTimeSheet, lngMaxEmp)

    rsTD.MoveNext
Loop