Private Sub Украл_идею_у_Дубилета(МІ2, кафедра МІ,:)as Happy)

Form1.print "Не зря желал - удача улыбнулась и нам! :) Поздравляю всех кто сдал, а тех кто сдал классно - вввще проздравляю втройне!
Колян - я же говрил прорвемся!!!! ВБ4МИ - Форева а сколько пользы он принес - то !!!!!! Все по-справедливости - за добрые дела Nikolas.Additem = "++ результаты" "
Select case Nastroenie
Case Good
For i = 1 to 100000000000#
Nastroenie=Nastroenie+1
Next i
Case Good
MsgBox "На кафедрі МІ такого не буває! :)"
End select

End Sub

Рыдаю:)
Нашла на нашем факультетском сайте:)
Приятно, что мы такие....вот такие. какие есть:)