TABCONTROL VB2005

MALA 12/01/2010 19:55:33
#331718

tenho um formulario com um tabcontrol com 5 tabs com varios componentes, gostaria que quando um recebece o focus a tab ficase ativa, tenho um modelo em vc6
Public Sub MudaTabUnCdfu(Frm As Form, STab As SSTab)
On Error Resume Next
Select Case Screen.ActiveControl.TabIndex
Case 0 To 19
STab.Tab = 0
Case 20 To 33
STab.Tab = 1
Case 34 To 49
STab.Tab = 2
Case 50 To 65
STab.Tab = 3
Case 66 To 97
STab.Tab = 4
End Select
End Sub