Reply to thread

Message: [QUOTE="Matthew Pfluger, post: 11945985"] I have a class module called CInertiaData that contains 6 double variable declarations: Public dmMass As Double Public dmDensity As Double Public dmVolume As Double Public dmCOG_x As Double Public dmCOG_y As Double Public dmCOG_z As Double I declare new instances of this module as follows: Dim muInertiaData As CInertiaData Set muInertiaData = New CInertiaData At several points in my code, I want to reset all values in muInertiaData to 0. I'd like to write a method instead of a subroutine, but I'm not sure how to proceed. I believe it would be something like: Public Sub Clear(ByRef oInertiaData As CInertiaData) On Error Resume Next With oInertiaData .dmMass = 0 .dmDensity = 0 .dmVolume = 0 .dmCOG_x = 0 .dmCOG_y = 0 .dmCOG_z = 0 End With End Sub However, this still requires passing a CInertiaData object to the method. How do I write the method so it clears the CInertiaData object that calls it? I would guess that this involves changing the way I define my Class Module variables. Thanks, Matthew Pfluger [/QUOTE]