鼠标在sstab选项卡上移动，如何在不点击鼠标时，直接换页

[wqdz]

在操作sstab选项卡时，一般是鼠标移动到某一页，再点击来换页；我想鼠标在移动到某一页时，直接就触发换页，不要在点击一下鼠标。请问应该如何操作，谢谢！

[脆皮大雪糕]

试试看是不是你想要的效果

Option Explicit
Private Sub Form_Load()
    Dim i As Integer
    SSTab1.Style = ssStyleTabbedDialog
    SSTab1.Tabs = 5
    SSTab1.TabsPerRow = SSTab1.Tabs
End Sub
Private Sub SSTab1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Y < SSTab1.TabHeight Then
        SSTab1.Tab = Int(X / SSTab1.Width * SSTab1.TabsPerRow)
    End If
End Sub

[脆皮大雪糕]

如果所有tab都在一行可以根据鼠标位置判断移动到哪一个tab上了，如果是多行就麻烦了

[wqdz]

试了一下,是我想要的效果.谢谢!