کمک درباره ساخت یک ویروس ساده ( پروژه ام هست )

سلام دوستان !!!
باید واسه مدرسه یک ویروس ساده ( حالا اسمش رو همینجوری میگم ویروس ) که مثلا وقتی اجراش میکنی یک چیزی تو یک کادری بالای دسکتاپ اجرا بشه !!!
مثلا یک نوشته ای توی یک کادر بالای دسکتاپ مدام بیاد و بره !!!
ممنون میشم کمکم کنید

اگر منظورت رو واضح تر بگی میشه یک کاریش کرد

ببین منظورم ویروس نیست !!!
مثلا یک برنامه ای باشه که 2 تا کادر توش باشه و یک دکمه ! بعد کلمات از پیش تعیین شده ای رو به کادر اول بدی و روی دکمه کلیک کنی تا جواب اون کلمه یا جمله تو کادر دوم بیاد !!!
مثلا تو کادر اول بنویسم ( سلام.خوبی ؟ ) بعد روی دکمه کلیک کنم ، تو کادر دوم بنویسه ( علیک سلام ) به عنوان مثال گفتم.

کسی میتونه کمک کنه ؟؟؟

کسی نبود مشکل ما رو حل کنه ؟؟؟

این که نشد!
خوب این جواب سوال کجا ذخیره شده ؟
بعد اسمش ویروس نیست

خب خودمون جواب رو از پیش تعیین میکنیم دیگه !!!
ببین مثلا این کد رو ببین
If Text1.Text = "Pedram" Then
Text2.Text = "Mohammadi"
End If

خب حالا این که باشه وقتی تو کادر اول مینویسی ( پدرام ) کادر دوم سریع میشه ( محمدی ) !
من میخوام وقتی مینویسم ( پدرام ) بعد تا ENTER رو نزدم اون جواب مورد نظر رو ننویسه !!!
مثلا بنویسم ( پدرام ) بعد اینتر بزنم ! بعد تو کادر دوم بنویسه ( محمدی ) !!!
میشه بگید کدش چجوری میشه ؟؟؟

کسی نبود کمک کنه ؟؟؟

تو Event کلیک کردن Command Button این شرط رو بنویس.

من الان VB رو سیستم ندارم وگرنه براتون می نوشتم.

سلام
من برنامه رو برای شما نوشتم.

'shoma bayad baraye inke command1 ba enter kar konad bayad az moshakhasehaye command1 default ra true konid

If Text1.Text = "" Then
MsgBox "please insert text in the text1", vbCritical, "Insert text"
End If

If Text1.Text <> "" Then
If Text1.Text = "pedram" Then
Label1.Caption = "True"
Text2.Text = "mohammadi"
Label2.Caption = "True"
End If
End If

سلام دوست عزيز.
من هم يك نمونه برات نوشتم. البته برنامه ي قبلي كه دوستمون نوشته خوبه. ولي در بعضي مواقع كه برنامه ي شما گسترده تر ميشه، از اين روش هم ميشه استفاده كرد:
دو تا textbox و يك command button بساز.

کد:

---

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.Value = True: End If
End Sub
 
Private Sub Command1_Click()
If Text1.Text = "pedram" Then
Text2.Text = "Mohammadi"
Else
Text1.Text = ""
Text2.Text = ""
End If
End Sub

---