WPF: A Beginner's Guide - Part 6 of n

Imports System
Imports System.Collections.Generic
Imports System.Text

    Public Class SolarSystemObject
        Private m_name As String

        Public Property Name() As String
            Get
                Return m_name
            End Get
            Set(ByVal value As String)
                m_name = value
            End Set
        End Property

        ' In Astronomic Units (AU) 
        Private m_orbit As Double

        Public Property Orbit() As Double
            Get
                Return m_orbit
            End Get
            Set(ByVal value As Double)
                m_orbit = value
            End Set
        End Property

        ' In Km 
        Private m_diameter As Double

        Public Property Diameter() As Double
            Get
                Return m_diameter
            End Get
            Set(ByVal value As Double)
                m_diameter = value
            End Set
        End Property

        Private m_image As Uri

        Public Property Image() As Uri
            Get
                Return m_image
            End Get
            Set(ByVal value As Uri)
                m_image = value
            End Set
        End Property

        Private m_details As String

        Public Property Details() As String
            Get
                Return m_details
            End Get
            Set(ByVal value As String)
                m_details = value
            End Set
        End Property

        Public Sub New(ByVal name As String, ByVal orbit As Double, ByVal diameter As Double, ByVal image As Uri, ByVal details As String)
            Me.m_name = name
            Me.m_orbit = orbit
            Me.m_diameter = diameter
            Me.m_image = image
            Me.m_details = details
        End Sub

        Public Overloads Overrides Function ToString() As String
            Return Me.m_name
        End Function
    End Class