VB_farpoint Initailize

Private Sub SS_Clear()
    Dim I, J    As Integer
    Dim strT1, strT2 As String
    
    
    SS1.Row = 1: SS1.Row2 = SS1.MaxRows
    SS1.Col = 1: SS1.Col2 = SS1.MaxCols
    For I = 0 To I < SS1.Row2
        For J = 0 To J < SS1.Col2
            SS1.Row2 = I
            SS1.Col2 = J
            SS1.Text = ""
        Next J
    Next I
    SS1.BlockMode = True
    SS1.Text = ""
    SS1.BlockMode = False
   
End Sub