Приветствую Вас, Гость! Регистрация RSS

Шняга

Пятница, 29.03.2024
Главная » 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
Просмотров: 767 | Добавил: dragon | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]