Private m_strParameter As String '=============================================================== '* Property: Parameter '* Author: Joe Johnston 07/19/2001 '* Description: This is to allow forms to accept parameters '* Parameters: Whatever you want to pass. Alter type as needed '=============================================================== Public Property Get Parameter() As String Parameter = m_strParameter End Property Public Property Let Parameter(ByVal strParameter As String) m_strParameter = strParameter End Property
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams