Imports System.Resources
Imports System.Globalization
Imports System.Threading

Partial Class MasterPage2
    Inherits System.Web.UI.MasterPage
    Private rm As ResourceManager
    Protected Sub Page_Load(ByVal sender As Object, _
          ByVal e As System.EventArgs) Handles Me.Load
        If Session("CurrentCulture") Is Nothing Then
            Session("CurrentCulture") = "en-US"
            Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")
        End If
    End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        If Session("CurrentCulture") = "en-US" Then
            Thread.CurrentThread.CurrentCulture = New CultureInfo("en-US")
        Else
            Thread.CurrentThread.CurrentCulture = New CultureInfo("ar-SA")
        End If

    End Sub
End Class