Part of the code is the property StartHeight. Get and Let shown below:
Code:
Public Property Let StartHeight(intValue As Integer)
pIntStartHeight = intValue
End Property
Public Property Get StartHeight() As Integer
StartHeight = pIntStartHeight