Dim i As Integer        Dim count As Integer = DgrdPower.Items.Count        For i = 0 To count - 1            DgrdPower.Items(i).Attributes.Add("onmouseover", "currentcolor=this.style.backgroundColor;this.style.backgroundColor='#F0F5FF';this.style.color='Red'")
            DgrdPower.Items(i).Attributes.Add("onmouseout", "this.style.backgroundColor=currentcolor;this.style.color='black'")
            'DgrdPower.Items(i).Attributes.Add("onmouseover", "currentcolor=this.style.color;this.style.color='Red'")
            'DgrdPower.Items(i).Attributes.Add("onmouseout", "currentcolor=this.style.color;this.style.color='black'")
        Next