问一个很难的Tab或者SSTab控件的问题：如何修改Tab页的标题？

Question

要求有点特殊：不能切换（包括使用代码切换）Tab页。想知道这样能否做到？因为要实现一个程序：自动检查当远端数据到来时，根据数据类型在不同的Tab页显示，并且要提醒用户有新数据。提醒方式就是：通过不停的闪烁Tab页上的标题（就是交替显示文字或空字符）来提醒。因此，不能切换Tab页。比如：当前用户正在看第一页，现在第2页有数据到来，则不能用程序将其切换到SStab1.Tab=2以修改标题（那样会使用户无法看第一页数据了）。

Answer 1

Private Sub Timer1_Timer()
'SSTab1.Tab = 1'默认sstab空件
'Timer1.Interval = 150
'当有数据时使Timer1可用
If SSTab1.Tab <> 2 Then
    '当tab=2 时不提醒
    If SSTab1.TabCaption(2) = "   " Then
    SSTab1.TabCaption(2) = "Tab 2"
    Else
    SSTab1.TabCaption(2) = "   "
    End If
End If
End Sub