vb 6.0 VSFlexGrid 复制 粘贴

'======================================================================
        Case "F¸´ÖÆ"
        
        Clipboard.Clear
        Clipboard.SetText .Clip
        End With
        '======================================================================
        Case "NÕ³Ìù"
        Dim mmm As Long
        Dim ttt As Long
          
        If .Rows = 1 Then Exit Sub
           ttt = Len(Clipboard.GetText)
        If ttt = 0 Then Exit Sub
        For iii = 1 To ttt
           If Mid(Clipboard.GetText, iii, 1) = Chr(9) Then sss = sss + 1
           If Mid(Clipboard.GetText, iii, 1) = Chr(13) Then mmm = mmm + 1
        Next
        If sss / (mmm + 1) + .Col > .Cols - 1 Then
             .ColSel = .Cols - 1
        Else
             .ColSel = sss / (mmm + 1) + .Col
        End If
        If .Row + mmm > .Rows - 1 Then
            .RowSel = .Rows - 1
        Else
            .RowSel = .Row + mmm
        End If
           .Clip = Clipboard.GetText