late binding error

[Dean Slindee]

Is there any way to avoid the late binding error in this code snippet? Opton
Strict ON
Public Sub ComboBoxFlatClearForEdit(ByRef obj As Object)

Dim objControl As New Control

For Each objControl In obj.Controls ' (LATE BINDING ERROR)

ComboBoxFlatEmpty(objControl)

Next

End Sub

Thanks,

Dean Slindee

[Herfried K. Wagner [MVP]]

"Dean Slindee" <sl*****@charter.net> schrieb:

Is there any way to avoid the late binding error in this code snippet?
Opton
Strict ON
Public Sub ComboBoxFlatClearForEdit(ByRef obj As Object)
'ByRef obj As Object' => 'ByVal obj As Control'.
Dim objControl As New Control
Remove the 'As New Control', it doesn't make sense here.
For Each objControl In obj.Controls ' (LATE BINDING ERROR)

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[stand__sure]

can you give more information please -- what is obj?

[Dean Slindee]

Recoded as below and now is not a late bind. The change is to say "ByRef
obj As Control"
Public Sub ComboBoxFlatClearForEdit(ByRef obj As Control)

Dim ctl As New Control

For Each ctl In obj.Controls

ComboBoxFlatEmpty(ctl)

Next

End Sub

"Dean Slindee" <sl*****@charter.net> wrote in message
news:xD*******************@fe04.lga...

Is there any way to avoid the late binding error in this code snippet? Opton Strict ON
Public Sub ComboBoxFlatClearForEdit(ByRef obj As Object)

Dim objControl As New Control

For Each objControl In obj.Controls ' (LATE BINDING ERROR)

ComboBoxFlatEmpty(objControl)

Next

End Sub

Thanks,

Dean Slindee