设置好 SSTab 各属性页,利用其Index 属性来判断如:Select Case SSTab1.SelectedItem.Index Case 1 .... Case 2 ......End Select