Partial Class _Default
    Inherits System.Web.UI.Page
    Private Sub RenderImage( ByVal ImageNummer as Integer )
        Dim ImageURL as String = "~/bilder/ReferenzenEvents/" & ImageNummer & _
          ".jpg"
        Image2.ImageUrl = ImageURL
        Label1.Text = ImageNummer.ToString
 
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then
            Label1.Text = "0"
        End If
 
    End Sub
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        i = CInt(Label1.Text)
        If( i > 0 ) Then i -= 1
        RenderImage( i )
    End Sub
 
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        i = CInt(Label1.Text)
        i +=1
        RenderImage( i )
    End Sub
End Class