Using third party Tab Control

Used in the function below :
Following code will be helpful if you are using any non microsoft/Java controls say Infrajestics :This function will click tabs

sub linkform_click(tabcontrol, linkformname)
dim I
for I = 0 to tabControl.Tabs.Count-1
if tabControl.VisibleTabs.get_Item(I).Text.OleValue= cstr(linkformname) then
tabControl.VisibleTabs.get_Item(I).Selected = true
end If
Next
end Sub