Public Class WebGBtnDemoForm

Inherits System.Web.UI.Page

'Web Form Designer Generated Code here

#Region "Event Handlers"

Private Sub ButtonImageListBox_SelectedIndexChanged( _

ByVal sender As System.Object, _

ByVal e As System.EventArgs) _

Handles ButtonImageListBox.SelectedIndexChanged

Dim lBox As ListBox = CType(sender, ListBox)

Dim btnDesign As String = lBox.SelectedItem.ToString

Dim fileExt As String

Dim imgsDir As String = "images/"

Select Case btnDesign

Case "Administrator", "My Information", "Login Link"

fileExt = ".gif"

Case Else

fileExt = ".jpg"

End Select

With WebGraphicalButton1

.ImageUp = String.Concat(imgsDir, btnDesign, " Up", fileExt)

.ImageDown = String.Concat(imgsDir, btnDesign, " Down", fileExt)

.ImageOver = String.Concat(imgsDir, btnDesign, " Over", fileExt)

.AlternateText = btnDesign

End With

With Label2

.Text = ""

.ForeColor = Color.Black

End With

End Sub

Private Sub WebGraphicalButton1_Click( _

ByVal sender As System.Object, _

ByVal e As System.Web.UI.ImageClickEventArgs) _

Handles WebGraphicalButton1.Click

With Label2

If .ForeColor.Equals(Color.Blue) Then

.ForeColor = Color.Green

.Text = "Clicked again!!"

ElseIf .ForeColor.Equals(Color.Green) Then

.ForeColor = Color.Red

.Text = "And clicked yet again!!!"

Else

.ForeColor = Color.Blue

.Text = "Clicked!"

End If

End With

End Sub

#End Region

End Class