Hello World

Adding code to buttons click event

Adding code to buttons click event

Public Class FrmMain

    Private Sub BtnYes_Click(sender As Object, e As EventArgs) Handles BtnYes.Click
        Me.PicHateWinter.Visible = False
        Me.PicWinter.Visible = True
    End Sub

    Private Sub BtnNo_Click(sender As Object, e As EventArgs) Handles BtnNo.Click
        Me.PicHateWinter.Visible = True
        Me.PicWinter.Visible = False
    End Sub

    Private Sub PnlStop_Paint(sender As Object, e As EventArgs) Handles PnlStop.Click
        End
    End Sub
End Class

To do:

1. Experiment by asking a different question
2. Experiment by giving 3 choices for the answer

Last modified: January 30 2025 14:18:56.