Hi,

im making a voting system program for an assignment which it biased towards one of the candidates, when u click "vote" on the one it doesnt want to win, it displays a few msgboxes. then next time that button is clicked i need the button to resize. ive been thinking for like 3hrs and vb doesnt allow like an OnClick thing or a away to check if the msgboxes part has been done, below is a download link to my project files. someone please check em out im real stuck.



screenshot:


download code:
http://uploadcrap.com/d/dlELECTION.html

code:
Code:
Public Class frmElection

    Private Sub btnVoteKerry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteKerry.Click
        MsgBox("Thank you for voting for the only sensible choice.", MsgBoxStyle.Information)
        Me.Close()
    End Sub

    Private Sub btnVoteGibbo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoteGibbo.Click
        Dim result As MsgBoxResult
        Dim ShrinkBtn As Integer

        result = MsgBox("Are you sure?", MsgBoxStyle.YesNo, "Are you sure?")
        If result = MsgBoxResult.No Then
        Else
            result = MsgBoxResult.Yes
            result = MsgBox("Are you really sure?", MsgBoxStyle.YesNo, "Are you sure?")
            If result = MsgBoxResult.No Then
            End If
            'space
            If result = MsgBoxResult.No Then
            Else
                result = MsgBoxResult.Yes
                result = MsgBox("You can't be serious!", MsgBoxStyle.YesNo, "Are you sure?")
                If result = MsgBoxResult.No Then
                End If
            End If
            If result = MsgBoxResult.No Then
            Else
                result = MsgBoxResult.Yes
                result = MsgBox("You don't really want to vote for that daywalker!", MsgBoxStyle.YesNo, "Are you sure?")
                If result = MsgBoxResult.No Then
                Else
                    MsgBox("A voting error has occured. Please try again", MsgBoxStyle.Critical, "Voting Error")
                End If
            End If
        End If

    End Sub


End Class