Api vb6：按代码设置SysTabControl32

我正在编写一个控制soulseek的小应用程序-我想做的是按代码点击“搜索文件”按钮

我已经获得了选项卡控件（SysTabControl32）的句柄，并设法更改了选项卡 代码如下：

rc1 = SendMessage(hwnd, TCM_SETCURFOCUS, ByVal 0, ByVal 0&)  

问题是：

选项卡控件正在更改为正确的按钮，但什么也没有发生。 我假设我还必须向它发送鼠标点击，因为当用鼠标点击时，按钮会一次下一次上一次

有什么办法吗

使用thx代替

Private Const TCM_FIRST               As Long = &H1300
Private Const TCM_SETCURSEL           As Long = (TCM_FIRST + 12)