Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdFill_Click()
If MsgBox("Вы уверены?", vbYesNo) = vbYes Then
tb11 = 9
tb12 = -4
tb13 = -2
tb14 = 8
tb21 = 4
tb22 = 5
tb23 = 6
tb24 = -7
tb31 = 3
tb32 = 4
tb33 = -4
tb34 = 3
tbKol = ""
tbSum = ""
End If
End Sub
Private Sub cmdKol_Click()
Dim A(3, 4) As Integer
On Error GoTo ErrHand
A(0, 0) = tb11
A(0, 1) = tb12
A(0, 2) = tb13
A(0, 3) = tb14
A(1, 0) = tb21
A(1, 1) = tb22
A(1, 2) = tb23