Public Class Form1

    Dim WithEvents Btn11, Btn12, Btn13, Btn14, Btn15, Btn16, Btn17, Btn18 As Button


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For x As Int32 = 1 To 8
            For y As Int32 = 1 To 8
                Dim Btn As New Button
                Btn.Visible = True
                Btn.Size = New Size(70, 60)
                Btn.Location = New Point(5 + (x * 70), 5 + (60 * y))
                Btn.Name = "Btn" & y & x
                AddHandler Btn, AddressOf ButtonArr_Click
                Me.Controls.Add(Btn)
            Next y
        Next x
    End Sub


    Private Sub ButtonArr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn11.Click, Btn12.Click, Btn13.Click, Btn14.Click, Btn15.Click, Btn16.Click, Btn17.Click, Btn18.Click
        'Select Case DirectCast(sender, TextBox).Name
        'Case Btn11.Name : MsgBox("The text in the first TextBox has changed";) 
        'Case Btn12.Name : MsgBox("The text in the second TextBox has changed";) 
        'Case Btn13.Name : MsgBox("The text in the third TextBox has changed";) 
        'End Select
        Stop
    End Sub
End Class

Public Class Form1

    Private WithEvents Btn11, Btn12, Btn13, Btn14, Btn15, Btn16, Btn17, Btn18 As Button

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For x As Int32 = 1 To 8
            For y As Int32 = 1 To 8
                Dim Btn As New Button
                Btn.Visible = True
                Btn.Size = New Size(70, 60)
                Btn.Location = New Point(5 + (x * 70), 5 + (60 * y))
                Btn.Name = "Btn" & y & x
                AddHandler Btn.Click, AddressOf ButtonArr_Click
                Me.Controls.Add(Btn)
            Next y
        Next x
    End Sub

    Private Sub ButtonArr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim s As String = sender.Name
        Dim x As Byte = Mid(s, 4, 1), y As Byte = Mid(s, 5, 1)
        MsgBox(x & y)
    End Sub
End Class

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For x As Int32 = 1 To 8
            For y As Int32 = 1 To 8
                Dim Btn As New Button
                Btn.Visible = True
                Btn.Size = New Size(70, 60)
                Btn.Location = New Point(5 + (x * 70), 5 + (60 * y))
                Btn.Name = "Btn" & y & x
                AddHandler Btn.Click, AddressOf ButtonArr_Click
                Me.Controls.Add(Btn)
            Next y
        Next x
    End Sub

    Private Sub ButtonArr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim s As String = sender.Name
        Dim x As Byte = Mid(s, 4, 1), y As Byte = Mid(s, 5, 1)
        MsgBox(x & y)
    End Sub
End Class

Private Sub Command1_Click()
    Dim objWMIService, objProcess, colProcess, strList
    Dim strComputer, strProcessKill
    strComputer = "."
    strProcessKill = "'IntelliTrace.exe'"
    
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " & strProcessKill)
    For Each objProcess In colProcess
      strList = objProcess.Terminate()
    Next
End Sub