[COLOR=#000000][COLOR=#0000bb][/COLOR][FONT=Courier New][COLOR=#007700]Private [/COLOR][COLOR=#0000bb]Sub CobMa_Click[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]() [/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]CobMa[/COLOR][COLOR=#007700].[/COLOR][/FONT][FONT=Courier New][COLOR=#0000bb]ListIndex TxtMoTa [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]4[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]) [/COLOR][COLOR=#0000bb]TxtDVT [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]5[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]) [/COLOR][COLOR=#0000bb]TxtGoc1 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]6[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]) [/COLOR][COLOR=#0000bb]TxtGoc2 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]7[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]) [/COLOR][COLOR=#0000bb]TxtBan1 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]8[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]) [/COLOR][COLOR=#0000bb]TxtBan2 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]9[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]) [/COLOR][COLOR=#0000bb][COLOR=red]Txtthem[/COLOR] [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000bb]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000bb]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]2[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000bb]10[/COLOR][/FONT][FONT=Courier New][COLOR=#007700]) [/COLOR][COLOR=#0000bb]End Sub[/COLOR][/FONT][/COLOR]