public Currency( Creditor Creditor )
Public Sub New ( _ Creditor As Creditor _ )
public: Currency( Creditor^ Creditor )