帮我看看这个问题！！！！！！！！
我建了一个class类：

Private name As String

Public Property nm() As String
Get
Return Me.name
End Get
Set(ByVal value As String)
Try
If Me.name = value <= 10 And Me.name = value > = 1 Then
Me.name = value
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Set
End Property


我用下面的语句实现赋值和输出：

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim nam As New Class1
nam.nm = 4
MessageBox.Show(nam.nm)
End Sub


我怎么点击按钮的时候什么都不出而且提示我只能再1到10之间呀，怎么解决呀！！！

[解决办法]
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim nam As New Class1
nam.nm = "4 " ///////////////////加 " "
MessageBox.Show(nam.nm)
End Sub