看看下面的代码，如何没有异常提示呀！

看看下面的代码，怎么没有错误提示呀！！！！！！

自己建的类：  
 
  Private   name   As   String

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


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




[解决办法]
楼主错误理解了Try的使用方法，如果没有出系统级别错误Try是不会报错的

应将如下代码进行修改：
Try
If value <= 10 And value > = 1 Then
Me.name = value
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

改后代码：
If value <= 10 And value > = 1 Then
Me.name = value
Else
MsgBox(Value)
End If