Procedures+(VB)

Public Class Form1 Dim n As New Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub OutputMessage MsgBox("I love button" & " " & n) End Sub
 * This is the procedure that is being specified. A procedure called OutputMessage is declared as a message box appearing and displaying "I love button, n".**

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click n = 1 OutputMessage End Sub
 * n's value is specified and then the procedure is run!!**

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click n = 2 OutputMessage End Sub
 * **n's** value is specified and then the procedure is run!!**

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click n = 3 OutputMessage End Sub
 * **n's** value is specified and then the procedure is run!!**

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click n = 4 OutputMessage End Sub End Class
 * **n's** value is specified and then the procedure is run!!**