Hi, Chris -

See if the following code does what you are looking for:

Integer         li_num_properties, li_index, li_width, li_height
String          ls_class_name = "tabpg_test"
ClassDefinition lcd_tabpage

// Obtain the Class Definition for the desired tabpage user object.
lcd_tabpage = FindClassDefinition(ls_class_name)
If Not IsValid(lcd_tabpage) Then
   MessageBox("Oops","Unable to obtain class definition of tabpg_test user object.")
   Return 0
End If

// Invalid values, so we now when we have found their original values.
li_width  = -1
li_height = -1

// The properties for an object class can be inspected by examining the
// contents of the ClassDefinition's array of VariableDefintion objects,
// contained in its VariableList property.
li_num_properties = UpperBound(lcd_tabpage.VariableList)

For li_index = 1 To li_num_properties
   // We are interested in only the "width" and "height" properties...
   Choose Case lcd_tabpage.VariableList[li_index].Name
      Case "width"
         // Get the initial value for the width.
         li_width = lcd_tabpage.VariableList[li_index].InitialValue
      Case "height"
         // Get the initial value for the height.
         li_height = lcd_tabpage.VariableList[li_index].InitialValue
   End Choose
   If li_width <> -1 And li_height <> -1 Then Exit
Next

// Any luck?
If li_width <> -1 And li_height <> -1 Then
   MessageBox("Eureka!","The tabpg_test user object's original width is " + &
      	String(li_width) + " and its original height is " + String(li_height) + ".")
Else
   MessageBox("Rats!","Unable to find the tabpg_test user object's original width & height.")
End If

Return 0

Best regards, John