Shell "c:\chrome\chrome.exe https://mail.qq.com"为什么老给我打开网站两遍?

下面这个代码,每次执行他都给我打开两遍网站,奇怪死了. 我只要他打开一次的.
有没有什么办法确保只打开一次呢?

Private Sub Command39_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)

        SetCapture Command39.hwnd

        If x > 0 And x <= Command39.Width And Y > 0 And Y < Command39.Height Then

      

        Dim WshShell As Object

Set WshShell = CreateObject("WScript.Shell")



'Set w = CreateObject("wscript.shell"):  r = w.run("https://mail.qq.com/cgi-bin/loginpage?t=ptlogin")

Shell "c:\chrome\chrome.exe https://mail.qq.com/cgi-bin/loginpage?t=ptlogin"

        

        

        Sleep 2600

           ReleaseCapture



        Else

                ReleaseCapture

        End If

End Sub

--------------------编程问答-------------------- 兄弟你这不是VB吗，怎么发到VC的论坛里了，你把移到VB里吧 --------------------编程问答-------------------- 很奇怪楼主怎么会在_MouseMove事件中执行shell呢。如果实在要这样，那就设个模块级变量，如
private m_bOpened as boolean
来作为调用过一次的标识吧

补充：VB ,  基础类