Zoom.vb

''' <summary>
''' Zoom Class
''' </summary>
''' <remarks></remarks>
Class Zoom
    Public Property Value As Double
    Public ReadOnly Property Text As String
        Get
            Return _Value.ToString("P0")
        End Get
    End Property
    Public Sub New(ByVal value As Double)
        Me._Value = value
    End Sub
End Class