Selecting Random Button

[thetimmer]

more like:

    Public arrButton() As Button

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        arrButton = {Button1, Button2, Button3}
    End Sub

    Private Sub ChangeCaption(sender As System.Object, e As System.EventArgs)
        Dim intRnd As New Random
        Dim start_1 As Integer = intRnd.Next(1, 16)
        arrButton(start_1).Text = "this"
    End Sub

very clean. much better than mine.