Answer:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As Byte
For a = 1 To 5
MessageBox.Show(a)
Next a
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Close()
End Sub
Button2 is exit button, and button1 is display button.
Explanation:
Please check the answer section.
