<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Default_aspx" %>
Untitled Page
File: Default.aspx.vb
Partial Class Default_aspx
Inherits System.Web.UI.Page
Protected Sub ImageMap1_Click(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.ImageMapEventArgs) _
Handles ImageMap1.Click
Dim str As String = "You have clicked " & e.PostBackValue
Response.Write(str)
End Sub
Protected Sub Page_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles Me.Load
ImageMap1.HotSpots(0).AlternateText = "A"
ImageMap1.HotSpots(1).AlternateText = "B"
ImageMap1.HotSpots(2).AlternateText = "C"
End Sub
End Class