Jabaco Source

..... 
Public Sub Command1_Click() 
    CommandEx 1 
End Sub 
Public Sub Command2_Click() 
    CommandEx 2 
End Sub 
Public Sub Command3_Click() 
    CommandEx 3 
End Sub 
..... 
Sub CommandEx(Index As Integer) 
    MsgBox "the button " & CStr(Index) & " has been pressed!" 
    Select Case Index 
        Case 1 
            ..... 
        Case 2 
            ..... 
        Case 3 
            ..... 
    End Select 
End Sub

Jabaco Source

Dim WithEvents myStateList As VBControlExtender(Me)
Dim myStateItems() As PictureBox 

Public Sub Form_Load()

   Dim tmpStateItem As PictureBox
   
   Const maxX As Integer = 15
   Const maxY As Integer = 10
   
   Const offsetX As Integer = 10
   Const offsetY As Integer = 10
   
   Const itemWidth As Integer = 23
   Const itemHeight As Integer = 10
   
   Dim x As Integer, y As Integer, v As Integer
   
   ReDim myStateItems((maxX + 1) * (maxY + 1))
   For x = 0 To maxX
  	For y = 0 To maxY
     	v = v + 1
     	tmpStateItem = New PictureBox()
     	myStateItems(v) = tmpStateItem
     	Call myStateList.AddControl("test" + x + "|" + y, tmpStateItem, x * itemWidth + offsetX, y * itemHeight + offsetY, itemWidth, itemHeight, True)
  	Next
   Next
   
   v = 0
   For x = 0 To maxX
  	For y = 0 To maxY
     	v = v + 1
     	myStateItems(v).BackColor = IIF(Rnd > 0.5, vbRed, vbGreen)
   	Next
   Next
   
   
End Sub

Public Sub myStateList_Click(ControlID As String)
   MsgBox ControlID + " pressed!"
End Sub

Source code

Option Explicit 
' 
' this Class overloads CommandButton to define a special event handler 
' 
Public ownerForm As frmDynControl ' allows call back to common event handler 
Public row As Integer ' we remember row/col to handle events parameterized 
Public col As Integer 

' a parameterized constructor 
Public Sub clsMyDynButton(frm As frmDynControl, c As Integer, r As Integer ) 
  ownerForm = frm 
  col = c 
  row = r 
End Sub 

' Jabaco was not able to find class "MouseEvent" 
' before I explicitly selected this class in the Project/Classpath rt.jar tree 
Public Sub mouseClicked(e As MouseEvent) 
  ownerForm.dynButtonClickHandler(Me, e) 
End Sub

Source code

' "MouseEvent" was not visible in my Jabaco IDE before I explicitly 
' selected it in the Project/Classpath rt.jar tree 
Public Sub dynButtonClickHandler(btn As clsMyDynButton, e As MouseEvent) 
  ' common click event handler for all clsMyDynButton controls 
  If Not e.isConsumed Then 
    ' we react just once 
    msgbox "col=" & btn.col & " row=" & btn.row & vbcrlf & e.toString 
    ' here we might do something clever depending on the btn.Caption 
    e.consume 
  End If 
End Sub