Attribute VB_Name = "public_function"

Public Sub ResetIcon()
                                                   
frmDOTester.chkTag0.Value = 0
frmDOTester.shpTag0.BackColor = vbBlack
                                                    
frmDOTester.chkTag1.Value = 0
frmDOTester.shpTag1.BackColor = vbBlack
                                                    
frmDOTester.chkTag2.Value = 0
frmDOTester.shpTag2.BackColor = vbBlack
                                                    
frmDOTester.chkTag3.Value = 0
frmDOTester.shpTag3.BackColor = vbBlack
                                                    
frmDOTester.chkTag4.Value = 0
frmDOTester.shpTag4.BackColor = vbBlack
                                                        
frmDOTester.chkTag5.Value = 0
frmDOTester.shpTag5.BackColor = vbBlack
                                                        
frmDOTester.chkTag6.Value = 0
frmDOTester.shpTag6.BackColor = vbBlack
                                                    
frmDOTester.chkTag7.Value = 0
frmDOTester.shpTag7.BackColor = vbBlack
                                                                                                          
frmDOTester.chkTag8.Value = 0
frmDOTester.shpTag8.BackColor = vbBlack
                                                        
frmDOTester.chkTag9.Value = 0
frmDOTester.shpTag9.BackColor = vbBlack
                                                                
frmDOTester.chkTag10.Value = 0
frmDOTester.shpTag10.BackColor = vbBlack
                                                        
frmDOTester.chkTag11.Value = 0
frmDOTester.shpTag11.BackColor = vbBlack
                                                        
frmDOTester.chkTag12.Value = 0
frmDOTester.shpTag12.BackColor = vbBlack
                                                        
frmDOTester.chkTag13.Value = 0
frmDOTester.shpTag13.BackColor = vbBlack
                                                        
frmDOTester.chkTag14.Value = 0
frmDOTester.shpTag14.BackColor = vbBlack
                                                        
frmDOTester.chkTag15.Value = 0
frmDOTester.shpTag15.BackColor = vbBlack

End Sub