Dim lstBrws = TabControl1.SelectedTab.Controls.OfType(of WebBrowser)
if lstBrws.count>0 then
end if

OfTypeが使えるバージョンならこんなんでどうでしょう？（未検証）