I = 0 While I <= 10 MsgBox I i=i+1 Wend

onOff = True If onOff = True Then MsgBox "This item is on." Else MsgBox "This item is off." End If

For I = -1 To 10 MsgBox I If I = 3 Then Stop Next I

MsgBox "Please press OK button" If MsgBox("Please press OK button",vbOkCancel) = vbOK Then MsgBox "OK was pressed" Else MsgBox "Cancel was pressed" End If

i = InputBox$("Enter Your Name:", _ "Input Box Example","Garrett") If i = "Garrett" Then MsgBox "You work for DragonScripting.com" Else MsgBox "You do not work for DragonScripting.com" End If

GoTo toThis MsgBox"This line of code will be skipped over and go directly to toThis: unless this code is broke..." MsgBox " This line of code is not working now. toThis: MsgBox "Code is working properly."

continueVar = False If continueVar = False Then End End If MsgBox "rest of command"

onOff = off If onOff = off Then End End If MsgBox "onOff has been turned onto true"

test = Empty If test = "empty" Then MsgBox "This should not show" End If If test = "" Then MsgBox "test is empty" End If

MsgBox "The system will now beep." Beep

AppBringUp "www.DragonScripting.com" AppBringUp "notepad.exe"

aVariable = "A" Select Case aVariable Case "A" MsgBox "you said A" Case "B" MsgBox "you said B" Case "C" MsgBox "you said C" Case "D" MsgBox "you said D" Case "E" MsgBox "you said E" Case "F" MsgBox "you said F" Case "G" MsgBox "you said G" Case "H" MsgBox "you said...

Example1 = Clipboard MsgBox Example1

SendKeys "Hello world {enter}",True SendDragonKeys "Hello world {enter}" aVariable = "hello world {enter}" aNumber = 3 anotherNumber = aNumber + aNumber SendKeys aVariable SendKeys aNumber SendKeys "{enter}",True SendKeys anotherNumber