I'm having problems with a For Each...Next loop

[SuperSparks]

Hi all,

I'm trying to clear a load of textboxes in one go like this:

Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
 
        ' Clear textboxes and graphics
        Dim Txt As System.Windows.Forms.TextBox                                    ' assign textboxes to object Txt
        For Each Txt In gpbValues.Controls
            Txt.Text = ""
        Next Txt
 
 
    End Sub

I get a runtime error of InvalidCastException every time. Can anyone tell me what I'm doing wrong please?

[dynamic_sysop]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objTextBox As Object
        For Each objTextBox In Me.ActiveForm.Controls
            If TypeOf objTextBox Is TextBox Then
                objTextBox.text = ""
            End If
        Next
    End Sub

hope that helps.

[SuperSparks]

That cleared all the textboxes nicely, but I had to turn Option Strict off because when I tried to enter objTextBox.Text = "" it complained about late binding. Still it's a lot better than my effort, thanks a lot.

[dynamic_sysop]

here's a better way and you can leave Option Strict set to "ON"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Control
        For Each x In Me.Controls
            If TypeOf x Is TextBox Then
                x.Text = ""
            End If
        Next
    End Sub

[SuperSparks]

Perfect

Thanks for all your help.