' Ou para Deixar somente a que voce quer Ativa ..
Private Sub TravaTabs(TabHabilitada as Integer)
' No Parametro TabHabilitada vc poe o index da tab que deseja ficar habilitada
For i = 0 to 4 ' Numero de tabs - 1
if i <> TabHabilitada then
sstab1.tabEnabled(i)=false
else
sstab1.tabEnabled(i)=true
end if
Next
End Sub
' Obs : Podem criticar meu codigo , mas to sem vb , com sono e sem paciencia ;)