Thanks john.
I found another solution. The code for close button's click event is:
Set wshShell = CreateObject("WScript.Shell")
ret = wshShell.AppActivate("form title")
If ret = True Then
wshShell.SendKeys "%{F4}" 'ALT F4
End If
Thanks john.
I found another solution. The code for close button's click event is:
Set wshShell = CreateObject("WScript.Shell")
ret = wshShell.AppActivate("form title")
If ret = True Then
wshShell.SendKeys "%{F4}" 'ALT F4
End If