Public Class appointmentsForm

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Close()

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        appointmentNumLabel.Text = appointmentCounter(ComboBox1.SelectedIndex)

    End Sub

    Private Sub appointmentNumLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles appointmentNumLabel.Click

    End Sub
End Class