いつも大変お世話になっています。

下記はパネル内の全ての　　TextBox 、MaskedTextBox 、RadioButton に
プロパティを設定するプロシージャです。

（設定する内容はTextBox 、MaskedTextBox はReadOnly プロパティ
                RadioButton はAutoCheck プロパティです)

Private Sub sLookControl(ByVal pControl As Control, ByVal pReadFlg As Boolean)
        Dim TextBox As TextBox
        Dim MaskedTextBox As MaskedTextBox
        Dim RadioButton As RadioButton
        '*****
        For Each cldControl As Control In pControl.Controls
            If pControl.HasChildren = True Then
                sLookControl(cldControl, pReadFlg)
            End If
            '
            Select Case True
                Case TypeOf cldControl Is TextBox
                    TextBox = DirectCast(cldControl, TextBox)
                    TextBox.ReadOnly = pReadFlg

                Case TypeOf cldControl Is MaskedTextBox
                    MaskedTextBox = DirectCast(cldControl, MaskedTextBox)
                    MaskedTextBox.ReadOnly = pReadFlg
                  
                Case TypeOf cldControl Is RadioButton
                    RadioButton = DirectCast(cldControl, RadioButton)
                    RadioButton.AutoCheck = pReadFlg                  
             End Select
        Next
    End Sub

TextBox とMaskedTextBoxは設定するプロパティは同じなのですが
Case TypeOf cldControl Is TextBoxと
Case TypeOf cldControl Is MaskedTextBoxは

別々に書かないと駄目なのでしょうか？
できれば1つで書きたいのです。乱文にてすいません。

どなたかわかる方ご指導お願いします。

> TextBox とMaskedTextBoxは設定するプロパティは同じなのですが
>  Case TypeOf cldControl Is TextBoxと
>  Case TypeOf cldControl Is MaskedTextBoxは
> 別々に書かないと駄目なのでしょうか？

MaskedTextBox は、TextBoxBase クラスを継承していますよね。
そしてTextBox も、TextBoxBase クラスを継承していますよね。

という事は……。

　難しいですね。

Case TypeOf cldControl Is TextBoxだけでよい
ということでしょうか・・

すいません、

Case TypeOf cldControl Is TextBox
    TextBox = DirectCast(cldControl, TextBox)
    TextBox.ReadOnly = pReadFlg

Case TypeOf cldControl Is MaskedTextBox
     MaskedTextBox = DirectCast(cldControl, MaskedTextBox)
     MaskedTextBox.ReadOnly = pReadFlg

と書いていますが、Case TypeOf cldControl Is TextBox
は
Case TypeOf cldControl Is TextBoxBaseですよね。

となると  TextBox = DirectCast(cldControl, MaskedText)
はいらないのですか？

> となると  TextBox = DirectCast(cldControl, MaskedText)
> はいらないのですか？
Option Strict On にしてみれば、暗黙の型変換になる部分が
エラーとして判定されます。

継承元でもちゃんと評価されるのねぇ。。。ってテスト出力してみて
はじめて知ったｗｗ
MaskedTextBox で試したら？
[VB.NET2003]
        Dim objTextBase As TextBoxBase
        Dim cldControl As Control
        'TextBox
        cldControl = Me.TextBox1
        Debug.WriteLine(TypeOf cldControl Is TextBox)
        Debug.WriteLine(TypeOf cldControl Is TextBoxBase)
        objTextBase = DirectCast(cldControl, TextBoxBase)
        Debug.WriteLine(objTextBase.Name)
        'Button
        cldControl = Me.Button1
        Debug.WriteLine(TypeOf cldControl Is TextBox)
        Debug.WriteLine(TypeOf cldControl Is TextBoxBase)
        'objTextBase = DirectCast(cldControl, TextBoxBase)
        'Debug.WriteLine(objTextBase.Name)

おはようございます。

早速試してみました。
  
        Dim Textbox As TextBoxBase
      　Select Case True
                Case TypeOf cldControl Is TextBoxBase
                    Textbox = DirectCast(cldControl, TextBoxBase)
                    Textbox.ReadOnly = pReadFlg
                Case TypeOf cldControl Is RadioButton
                    RadioButton = DirectCast(cldControl, RadioButton)
                    RadioButton.AutoCheck = pReadFlg
        End Select

でokでした。

もしチェックボックスがあった場合
この場合もAutoCheckでラジオボタンとおなじなのですが

この場合は分けるのですよね。