Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Imports APNSoft.WebControls

Partial Public Class Rating_Precise
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        'Create the collection of Segments
        myRating.DataBind()
        Dim mySegments As RatingSegmentCollection = myRating.Segments

        'Customize each segment
        mySegments(0).image = "Poor.gif"
        mySegments(0).imageActive = "PoorActive.gif"
        mySegments(0).imageDisabled = "PoorDisabled.gif"
        mySegments(0).imageDisabledActive = "PoorDisabledActive.gif"
        mySegments(0).title = "Poor"

        mySegments(1).image = "Average.gif"
        mySegments(1).imageActive = "AverageActive.gif"
        mySegments(1).imageDisabled = "AverageDisabled.gif"
        mySegments(1).imageDisabledActive = "AverageDisabledActive.gif"
        mySegments(1).title = "Average"

        mySegments(2).image = "Good.gif"
        mySegments(2).imageActive = "GoodActive.gif"
        mySegments(2).imageDisabled = "GoodDisabled.gif"
        mySegments(2).imageDisabledActive = "GoodDisabledActive.gif"
        mySegments(2).title = "Good"

    End Sub
End Class