Originally Posted by
qwertyxsora
Private Function ciddiespeechtechie as Speech
'this speech is written in a spoof or visual basic 2008
Dim Baloki as Nominee
Dim crono_logical as Nominee
Dim Momiji as Nominee
Dim o_O as Nominee
Dim Samuraid as Nominee
Dim Zeromus_X as Nominee
Dim intnumberofvotesBaloki as Intager = 0
Dim intnumberofvotescrono_logical as Intager = 0
Dim intnumberofvotesMomiji as Intager = 0
Dim intnumberofvoteso_O as Intager = 0
Dim intnumberofvotesSamuraid as Intager = 0
Dim intnumberofvotesZeromus_X as Intager = 0
Dim inttotalnumberofvotes as Intager = 65
Dim strwinner as String = "And the winner will be said by Award Girl. Take it!"
Do until inttotalnumberofvotes = 0
If vote cast for Baloki then
intnumberofvotesBaloki += 1
End
If vote cast for crono_logical then
intnumberofvotescrono_logical += 1
End
If vote cast for Momiji then
intnumberofvotesMomiji += 1
End
If vote cast for o_O then
intnumberofvoteso_O += 1
End
If vote cast for Samuraid then
intnumberofvotesSamuraid += 1
End
If vote cast for Zeromus_X then
intnumberofvotesZeromus_X += 1
End
inttotalnumberofvotes -= 1
Loop
Me.lblciddiewin= strwinner