For Each .... Next?

[technomag]

Hi everybudy

i am trying to change the visible proprty of all my textboxes on the form to true.

        Dim obj As Object

        For Each obj In Me.Controls
            If (obj Is TextBox) Then
                obj.Visible = True
            End If
        Next

how do i fix?

thanks

 

[Cywizz]

try:

Dim objAs Control

        For Each obj In Me.Controls
            If typeof obj Is TextBox Then
                obj.Visible = True
            End If
        Next

 

[technomag]

thanks, it solved part of the problem but i now get:

Option Strict On disallows late binding.

on the line:

obj.Visible = True

 

[Cywizz]

Is the obj variable declared as type Control or Object?

 

[technomag]

true, it was object and not Control.

thanks very much Cywizz, it now works perfectly