0
            .ColWidth(6) = 1000
            .ColWidth(7) = 3000
            
            .Row = 1
            
        End With
    End Sub
    
    
    
    
    Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
        '右键弹出
        If Button = 2 And Shift = 0 Then
           
        End If
        
    End Sub