adjunto imagenes
por su ayuda y tiempo muchas gracias
Código
Private Sub tbsOptions_Click() Dim i As Integer 'show and enable the selected tab's controls 'and hide and disable all others For i = 0 To tbsOptions.Tabs.Count - 1 If i = tbsOptions.SelectedItem.Index - 1 Then picOptions(i).Left = 210 picOptions(i).Enabled = True Else picOptions(i).Left = -20000 picOptions(i).Enabled = False End If Next End Sub
Mod: No escribir todo en mayusculas. Los codigos deben ir en etiquetas GeSHi