Enabling/Disabling all of object type on a form

[DangerMouse9]

I'm trying to enable/disable all the objects of a certain type on my form, such as all the text boxes. I'm doing this in a similar method to how the proper way to close out of VB 5/6 was.
Here is what I have

dim txt as TextBox
For Each txt in Me
txt.Enabled = False
Next

Now, the Me part doesn't work, so what do I put in place of that so it knows to disable all the text boxes on that form? It's the only form I have so far, and I've tried the form name but it's not working.

Your help is appreciated. Thanks.

[Pirate]

Paste some TextBoxes(or you can choose another control ) on your form and slap this code into one button :

Dim ctl As New Control
        For Each ctl In Me.Controls
            If TypeOf ctl Is TextBox Then
                ctl.Enabled = False
            End If
        Next

[DangerMouse9]

Thanks, it's been a while since I've played around with this.

Originally posted by Pirate
Paste some TextBoxes(or you can choose another control ) on your form and slap this code into one button :

Dim ctl As New Control
        For Each ctl In Me.Controls
            If TypeOf ctl Is TextBox Then
                ctl.Enabled = False
            End If
        Next

[DangerMouse9]

Ok... For some reason this does not catch all the controls on the form. I was trying to use it to clear the textboxes, (I have text boxes grouped in a groupbox) and am trying to clear all the textboxes in a ClearTextBoxes event. However, it doesn't identify all the textboxes or all the controls when I type the following

dim ctr as control
for each ctr in me.controls
messagebox.show(ctr.name)
next

[dynamic_sysop]

use MyBase , not Me as Me points to the item thats holding the controls.

[DangerMouse9]

I tried myBase and it still only clears out/finds one text box.

[Pirate]

OK , use this instead :

Public Sub clearall()
        Dim ctl As New Control
 
        For Each ctl In Me.GroupBox1.Controls
            If TypeOf ctl Is TextBox Then
                ctl.Text = ""
            End If
        Next
 
        For Each ctl In Me.Controls
            If TypeOf ctl Is TextBox Then
                ctl.Text = ""
            End If
        Next
 
    End Sub