home *** CD-ROM | disk | FTP | other *** search
- Sub Main
- Begin Dialog UserDialog 290,77,"Scripting Example"
- Text 10,10,180,15,"Please enter your first name:"
- TextBox 10,28,270,21,.Text
- OKButton 190,56,90,21
- End Dialog
- Dim dlg As UserDialog
-
- Dialog dlg ' show dialog (wait for ok)
- MsgBox("Thanks for using AutoMate Pro, " + dlg.Text$ + " !", 0," Scripting Example") ' Show greeting message.
- End Sub
-