'
'-------------------------
'AUTOMATIC TYPE CONVERSION
'=========================

  class cls
    '
    private va as long
    '
    method v(byval a as long)
      this.va=a
    end method
    
    method v() as long
      method=this.va
    end method
    
  end class
  '
  '
  '-----------------------
  '
  dim obj as cls
  obj.v=41.9 : print obj.v 'rounded up
  obj.v="24" : print obj.v
  '
  '-----------------------
  '
  
