Как передать нажатия кнопок другим подпрограммам?

Question

Я очень новичок в кодировании. Я могу работать над рабочей программой, но я впервые создаю ее с нуля. Вот мой код, да, я знаю, что сейчас он, вероятно, грязный.

То, что я пытаюсь сделать, логично звучит достаточно просто.

теория: Это приложение имеет несколько кнопок, при нажатии каждой из которых возникает вопрос. После ответа ярлыки изменятся, чтобы задать другой вопрос. и так до четвертого, пока я не закончу. Это простое в использовании приложение для пошагового поиска и устранения неисправностей на некоторых испытательных приборах.

Я не могу понять, почему я не могу просто сказать, если buttonYes = true, тогда бла-бла. Я не чувствую, что это сложно, как кажется. Я искал по форумам, но я не могу найти ничего подобного.

App

Public Class Form1



Class EventHandler


    Public Event buttonYes(ByVal Status As String)

    Private Sub buttonYes_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonYes.Click
        RaiseEvent buttonYes("True")

    End Sub




End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    buttonYes.Hide()
    buttonNo.Hide()
    title.Hide()
    question.Hide()
    action.Hide()

    title.Text = ""
    question.Text = ""
    action.Text = ""

End Sub



Private Sub buttonNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonNo.Click

    Dim ans As String
    ans = "False"

End Sub

Private Sub CompButton(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles compFail.Click

    buttonYes.Show()
    buttonNo.Show()
    title.Show()
    question.Show()
    action.Show()

    title.Text = "Component / SAT"
    question.Text = "Are all cables seated properly"

End Sub

Private Sub ComponentFail(ByVal ans)
    'Dim ans As String
    ans = ""

    If ans = "False" Then
        action.Text = "Check cable connections and retest"
    End If
End Sub

Private Sub buttonYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Конечный класс