哪位VB高手帮小弟搞一下矩阵运算代码，把界面的设计控件带上！

form1 通用
Dim a() As Long
Dim b() As Long
Dim c() As Long
Dim m As Long
Dim n As Long
Dim p As Long
Dim q As Long
Dim flag As Long

Private Sub Command1_Click()
On Error GoTo lab:

m = InputBox("请输入A矩阵行数", "提示")
n = InputBox("请输入A矩阵列数", "提示")
Picture1.Cls
Picture3.Cls
ReDim a(1 To m, 1 To n) As Long
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox("请输入矩阵a(" & i & "," & j & ")数值", "提示")
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i

lab:

End Sub

Private Sub Command2_Click()
On Error GoTo lab:

p = InputBox("请输入B矩阵行数", "提示")
q = InputBox("请输入B矩阵列数", "提示")
Picture2.Cls
Picture3.Cls
ReDim b(1 To p, 1 To q) As Long
For i = 1 To p
For j = 1 To q