Private Sub Form_Load()
 
 
fg.TextMatrix(1, 1) = Form1.Text1.Text
fg.TextMatrix(2, 1) = Form1.Text2.Text
fg.TextMatrix(3, 1) = Form1.Text3.Text
fg.TextMatrix(4, 1) = Form1.Text4.Text
 
 
 
fg.TextMatrix(1, 2) = Form1.Text5.Text
fg.TextMatrix(2, 2) = Form1.Text6.Text
fg.TextMatrix(3, 2) = Form1.Text7.Text
fg.TextMatrix(4, 2) = Form1.Text8.Text
 
 
 
Dim l As Integer, m As Integer
For l = 1 To fg.Rows - 1
 
        fg.Cell(flexcpSort, 1, 1, l, 1) = flexSortStringAscending
 
        fg.Cell(flexcpSort, 1, 2, l, 2) = flexSortStringAscending
 
Next l
 
 
 
Dim i As Integer
Dim j As Integer
Dim test As String
For i = fg.Rows - 1 To 1 Step -1
  test = ""
  For j = 0 To fg.Cols - 1
     test = test & Trim(fg.TextMatrix(i, j))
  Next
  If Trim(test) = "" Then
      fg.RemoveItem i
  End If
  If fg.Rows <= 1 Then Exit For
Next
 
 
 
 
Dim k&
 
  With fg
    .Redraw = False
    For j = .FixedCols To .Cols - 1
      k = .FixedRows
      For i = .FixedRows To .Rows - 1
        If Trim$(.TextMatrix(i, j)) <> "" Then
          If i <> k Then
            .TextMatrix(k, j) = .TextMatrix(i, j)
            .TextMatrix(i, j) = ""
          End If
          k = k + 1
        End If
      Next i
    Next j
    .Redraw = True
  End With
End Sub