if mb = 1 and mx > 411 and mx < 430 and my < 19 then 
        col := 0 
    end if 
    if mb = 1 and mx > 430 and mx < 450 and my < 19 then 
        col := 1 
    end if 
    if mb = 1 and mx > 450 and mx < 470 and my < 19 then    
        col := 2 
    end if 
    if mb = 1 and mx > 470 and mx < 490 and my < 19 then  
        col := 3 
    end if 
    if mb = 1 and mx > 490 and mx < 510 and my < 19 then 
        col := 4 
    end if 
    if mb = 1 and mx > 510 and mx < 530 and my < 19 then    
        col := 5 
    end if 
    if mb = 1 and mx > 530 and mx < 550 and my < 19 then  
        col := 6 
    end if 
    if mb = 1 and mx > 550 and mx < 570 and my < 19 then 
        col := 7 
    end if 
    if mb = 1 and mx > 570 and mx < 590 and my < 19 then 
        col := 8 
    end if 
    if mb = 1 and mx > 590 and mx < 610 and my < 19 then 
        col := 9 
    end if 
    if mb = 1 and mx > 610 and mx < 630 and my < 19 then 
        col := 10 
    end if 
    if mb = 1 and mx > 630 and mx < 650 and my < 19 then  
        col := 11 
    end if 
    if mb = 1 and mx > 650 and mx < 670 and my < 19 then 
        col := 12 
    end if 
    if mb = 1 and mx > 670 and mx < 690 and my < 19 then  
        col := 13 
    end if 
     if mb = 1 and mx > 690 and mx < 710 and my < 19 then    
        col := 14 
    end if 
    if mb = 1 and mx > 710 and mx < 730 and my < 19 then 
        col := 15 
    end if