קוד התחל:MSGBOX
קוד יציאה:ME.CLOSE
קוד לחלון נוסף:form2.ShowDialog
קוד לטקסט משתנה:= textbox
קוד התחל לשעון:
Button1_Click:
Timer1.Start
קוד עצור לשעון:
Button2_Click:
Timer1.Stop
קוד אפס לשעון:
Button3_Click:
Timer1.Stop
ProgressBar1.Value = 0
קוד שעון אמיתי:ProgressBar1.Increment(+3

קוד שעון אמיתי:
Timer1_Tick:
ProgressBar1.Value += 1
קוד חיבור למחשבון:LblAnswer.Text = "The answer is : " & _ Str(Val(TextBox1.Text) + Val(TextBox2.Text))
קוד חיסור למחשבוןStr(Val(TextBox1.Text) - Val(TextBox2.Text))
קוד חילוק למחשבון:Str(Val(TextBox1.Text) \ Val(TextBox2.Text))
קוד כפל למחשבון:Str(Val(TextBox1.Text) * Val(TextBox2.Text))
קוד שירים לתוכנה:OpenFileDialog1.ShowDialog() AxWindowsMediaPlayer1.URL =
OpenFileDialog1.FileName