[tut]How to annoy someone[tut]

[WoW Sucks]

Make it looks something like this!
To this!

What will this code do?

The code below, when ran will bring up the design of your program. When the user clicks the command button it will show a textbox. When the user clicks "Ok" on the text box to get rid of it, it will launch another text box and so on.. (thats the annoying part if they don't know how to close programs with Ctrl + alt + del)

The code:

Private Sub Command1_Click()

Dim start As String

start = Text1.Text

While (start = Text1.Text)
    MsgBox txt & "Hello World", vbCritical, ""

Wend

End Sub

The code, split up:


This is just the code given to the command button, it tells VB to opperate the button you have to click it.

Private Sub Command1_Click()

All Dim means is "Recognise". So this code says...
"Recognise the word "Start" as a string."

Dim start As String

This peice of coding means that "start" is equal to the text box (text1.text)

start = Text1.Text

This peice of coding means that..
While "start" is equal to the first text box, make a message box appear saying "Hello World" inside it.

While (start = Text1.Text) 
	MsgBox txt & "Hello World", vbCritical, ""

All this does is tells VB to stop making messageboxes (which this program doesn't do) But VB likes you to have it there anyway

Wend

Other Info:

You can change the Hello World and the "" to different things, like i have done on the screenshot.

Private Sub Command1_Click()

Dim start As String

start = Text1.Text

While (start = Text1.Text)
    MsgBox txt & [b]"LOL You Play RS!"[/b], vbCritical, [b]"LOL @ YOU"[/b]

Wend

End Sub

Please tell me if i have made any mistakes. I tried my best (It works btw)

 

[-------owned-------]

Pretty annoying yes but most ppl who don't know programming thinks it's a keylogger or brute-forcer or something ^^

 

[Nathan III]

Oh, And I like this tutorial. 'tis funny

 

[Redemption]

Lol you're getting random, man.

Nice guide on teaching how to make forms work, though.