Главная » 2010 » Январь » 12 » Прога
22:08 Прога |
Private Sub Command1_Click() Label1.Caption = Int(Rnd * 10) + 10 If Label1.Caption > "16" Then Label1.Caption = "Клацніть ще раз" End If fuck End Sub Private Sub fuck() If Label1.Caption = "1" Then Label1.Caption = "Голосувати за Олега Рябоконя" End If If Label1.Caption = "2" Then Label1.Caption = "Голосувати за Михайла Бродського" End If If Label1.Caption = "3" Then Label1.Caption = "Голосувати за Анатолія Гриценко" End If If Label1.Caption = "4" Then Label1.Caption = "Голосувати за Олександра Пабата" End If If Label1.Caption = "5" Then Label1.Caption = "Голосувати за Василя Противсіх" End If If Label1.Caption = "6" Then Label1.Caption = "Голосувати за Інну Богословську" End If If Label1.Caption = "7" Then Label1.Caption = "Голосувати за Сергія Ратушняка" End If If Label1.Caption = "8" Then Label1.Caption = "Голосувати за Сергія Тігіпко" End If If Label1.Caption = "9" Then Label1.Caption = "Голосувати за Арсенія Яценюка" End If If Label1.Caption = "10" Then Label1.Caption = "Голосувати за Володимира Литвина" End If If Label1.Caption = "11" Then Label1.Caption = "Голосувати за Юрія Костенко" End If If Label1.Caption = "12" Then Label1.Caption = "Голосувати за Олександра Мороза" End If If Label1.Caption = "13" Then Label1.Caption = "Голосувати за Олега Тягнибока" End If If Label1.Caption = "14" Then Label1.Caption = "Голосувати за Петра Симоненко" End If If Label1.Caption = "15" Then Label1.Caption = "Голосувати за Людмилу Супрун" End If If Label1.Caption = "16" Then Label1.Caption = "Голосувати за Віктора Ющенка" End If If Label1.Caption = "0" Then Label1.Caption = "Не піти на вибори вони всі козли!" End If End Sub |
|
Всего комментариев: 0 | |