' Simulate Mouse Click
' using Vbsedit's free Toolkit
Set toolkit = CreateObject("Vbsedit.Toolkit")
For Each window In toolkit.TopLevelWindows
If InStr(1,window.WindowTitle,"vbsedit",vbTextCompare)>0 Then
window.Click 50,62
WScript.Quit
End If
Next