Here My Friends,

Only 1 line !
CommandBars("Visual Basic").Controls(6).Execute

Regards,
Fabio Dias S.


"Burma Jones" wrote:

What I ended up doing is to use an AutoIT script to do a Sendkeys action:

Sub DesignCustomForm()

Dim RetVal

RetVal = Shell("""C:\Program Files\AutoIt3\AutoIt3.exe"" ""C:\DesignCustomForm.au3""")
SendKeys "%(tfe)"

End Sub

AutoIT script (DesignCustomForm.au3):

WinWaitActive("Design Form")
Opt("SendKeyDelay", 200)
Send("{DOWN}")
Send("{ENTER}")
Exit
"Burma Jones" wrote in message ...
There is a custom form that I modify frequently and I was wondering if there is any way to programmatically open the form in design mode? Currently I have to go Tools - Forms - Design a Form - Personal Forms Library - select the form (or double-click) - Open

Thanks