
Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click bt_ck(sender, 1) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click bt_ck(sender, 2) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click bt_ck(sender, 3) End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load Dim bt_ary() As Button = {Me.Button1, Me.Button2, Me.Button3} For i As Integer = 0 To bt_ary.Count bt_ary(i).Text = "" Next End Sub Sub bt_ck(obj As Object, i As Integer) If obj.text = "(^_^)v " & i Then obj.text = "(^_^)g " & i Else obj.text = "(^_^)v " & i End If End Sub End Class