Option Explicit

Private Sub cmdButton_Click(Index As Integer)
    cmdButton(Index).BackColor = vbWhite
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        PopupMenu mPop
    End If
End Sub

Private Sub mAddCol_Click()
    ' So far you are able to expand the area around buttons
    Dim intCol As Integer
    Dim intButCol As Integer
    
    
    If intCol > 2 Then MsgBox "Please specify more than " & intCol & " columns.", vbExclamation, "Uh oh"
    intCol = InputBox("How many columns?", "Entry")
    
    Me.Height = Me.Height * intCol / 2
    
    For intButCol = 1 To 10
        Load cmdButton(intButCol)
        cmdButton(intButCol).Left = cmdButton(intButCol) * 2
    Next intButCol

    
End Sub

Private Sub mAddRow_Click()
    ' So far you are able to expand the area around buttons
    Dim intRow As Integer
    
    If intRow > 2 Then MsgBox "Please specify more than " & intRow & " rows.", vbExclamation, "Uh oh"
    intRow = InputBox("How many rows?", "Entry")
    
    Me.Width = Me.Width * intRow / 2
End Sub