Public Class NameFill
    Public Property m_Name() As String
        Get
            Return m_Name
        End Get
        Set(ByVal Value As String)
            Try
                m_Name = Value
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Set
    End Property
End class