.Cols = 15
            .TextMatrix(0, 1) = "出货单编号"
            .TextMatrix(0, 2) = "销售日期"
            .TextMatrix(0, 3) = "客户编号"
            .TextMatrix(0, 4) = "客户名称"
            .TextMatrix(0, 5) = "商品编号"
            .TextMatrix(0, 6) = "商品名称"
            .TextMatrix(0, 7) = "商品期号"
            .TextMatrix(0, 8) = "数量"
            .TextMatrix(0, 9) = "销售单价"
            .TextMatrix(0, 10) = "销售折扣"
            .TextMatrix(0, 11) = "总金额"
            .TextMatrix(0, 12) = "是否记账"
            .TextMatrix(0, 13) = "预付比例"
            .TextMatrix(0, 14) = "备注信息"
    
            
            
            
           
            
            '固定表头
            .FixedRows = 1
                    
            '设置各列的对齐方式
            For i = 0 To 14
                .ColAlignment(i) = 0
            Next i
            
            
            '表头项居中
            .FillStyle = flexFillRepeat
            .Col = 0
            .Row = 0
            .RowSel = 1
            .ColSel = .Cols - 1
            .CellAlignment = 4
            
            '设置单元大小
            .ColWidth(0) = 1000
            .ColWidth(1) = 1000
            .ColWidth(2) = 1000
            .ColWidth(3) = 1000
            .ColWidth(4) = 1000
            .ColWidth(5) = 1500
            .ColWidth(6) = 1500
            .ColWidth(7) = 1500
            .ColWidth(8) = 3000
            .ColWidth(9) = 1000
            .ColWidth(10) = 1500
            .ColWidth(11) = 1500
            .ColWidth(12) = 1500
            .ColWidth(13) = 3000
            .ColWidth(14) = 3000
            .Row = 1
            
        End With
    End Sub
    
    
    
    
    Private Sub Form_Unload(Cancel As Integer)
        SetMdiEnv
    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