我想做个TEXTBOX的类，让它初始话时CharacterCasing属性就是UPPER，我写了如下话,好象不成功.

[rodger_yanglq]

Public Class mytext
Inherits TextBox
Private _CharacterCasing
Public Overloads Property CharacterCasing() As CharacterCasing
Get
Return _CharacterCasing
End Get
Set(ByVal Value As CharacterCasing)
Value = Windows.Forms.CharacterCasing.Upper
_CharacterCasing = Value
End Set
End Property
End Class
这样写好像不成功
大家帮忙看看

[junki]

要是可以重载的方法才能这样写吧，如
Public Overridable Property CssClass() As String

[lizhengnan]

 Public Shadows Property CharacterCasing() As CharacterCasing 
        Get 
            Return _CharacterCasing 
        End Get 
        Set(ByVal Value As CharacterCasing) 
            Value = Windows.Forms.CharacterCasing.Upper 
            _CharacterCasing = Value 
        End Set 
    End Property