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