Исправить ошибки в приведенном коде

Private Sub Command1_Click()
End
End Sub
 
Private Sub Command2_Click()
Unload Me
Form1.Show
End Sub
 
Private Sub Form_Load()
MSFlexGrid1.Rows = nrows + 1: MSFlexGrid1.Cols = ncols + 1
MSFlexGrid2.Rows = nrows + 1: MSFlexGrid2.Cols = ncols + 1
MSFlexGrid1.Row = 0: MSFlexGrid1.Col = 0
MSFlexGrid2.Row = 0: MSFlexGrid2.Col = 0
MSFlexGrid1.Text = "Èñõîäíûé": MSFlexGrid2.Text = "Êîíå÷íûé"
MSFlexGrid1.Col = 0: MSFlexGrid2.Col = 0
For i = 1 To nrows
MSFlexGrid1.Row = i
MSFlexGrid2.Row = i
MSFlexGrid1.Text = i: MSFlexGrid2.Text = i
Next i
MSFlexGrid1.Row = 0: MSFlexGrid2.Row = 0
For i = 1 To ncols
MSFlexGrid1.Col = i
MSFlexGrid2.Col = i
MSFlexGrid1.Text = i: MSFlexGrid2.Text = i
Next i
 
For i = 1 To nrows
MSFlexGrid1.Row = i
For j = 1 To ncols
MSFlexGrid1.Col = j
MSFlexGrid1.Text = m(i, j)
Next j
Next i
 
 
 
Dim a(5, 5) As Integer
 
For i = 1 To 5
For j = 1 To 5
 a(i, j) = 10 * Rnd(1) \ 1
 Print a(i, j);
Next j
Print
Next i
Print
 
For i = 1 To 5
  a(i, i) = 1
  a(6 - i, i) = 1
Next i
 
For i = 1 To 5
For j = 1 To 5
 Print a(i, j);
Next j
Print
Next i
 
End Sub