Private Sub 选项卡1_Change()
    Dim i      As Byte
    For i = 0 To Me.选项卡1.Pages.Count - 1
       
        Me.选项卡1.Pages(i).PictureType = 1 '0嵌入,1链接
       
        If i = Me.选项卡1 Then
            Me.选项卡1.Pages(i).Picture = "F:\48X48\apply.ico"
        Else
            Me.选项卡1.Pages(i).Picture = "F:\48X48\ball_green.ico"
        End If
    Next
End Sub