Public Class frmRule

    Private Sub frmRule_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If frmLogin.lang = "ENG" Then
            LabelTitle.Text = "How to enjoy Stock War"
            Label1.Text = "▲Level and User name"
            Label2.Text = "▲Wallet"
            Label3.Text = "▲Date and Time"
            Label4.Text = "Start/Pause▲"
            Label5.Text = "Trade is unavailable on weekends"
            Label6.Text = "Max and min prices in a week▼"
            Label7.Text = "▼Trade Amount"
            Label8.Text = "Share in the company▼"
            Label9.Text = "▲Price when buying and selling"
            Label10.Text = "▲Range of fluctuation"
            Label11.Text = "▲Trade"
            Label12.Text = "▲Number of holding shares"
            Label13.Text = "Share prices are changed at every 12AM in weekdays"
            Label14.Text = "▼Market Status: Open and Closed"
            Label15.Text = "How to close the game"
            Label16.Text = "Always watch the changes in prices"
            Label17.Text = "◀ Click 'Exit'"
        ElseIf frmLogin.lang = "KOR" Then
            LabelTitle.Text = "주식 전쟁을 즐기는 방법"
            Label1.Text = "▲레벨과 이름"
            Label2.Text = "▲가진 금액"
            Label3.Text = "▲시간 및 날짜"
            Label4.Text = "게임 진행/정지▲"
            Label5.Text = "주말에는 거래불가능"
            Label6.Text = "한 주의 최소,최대 값▼"
            Label7.Text = "▼거래량"
            Label8.Text = "소유 지분▼"
            Label9.Text = "▲살 때/팔 때 가격"
            Label10.Text = "▲전날비교 변동가격"
            Label11.Text = "▲거래"
            Label12.Text = "▲보유 주식수"
            Label13.Text = "주가는 평일 12AM에 업데이트"
            Label14.Text = "▼주식시장 상태:개장/폐장"
            Label15.Text = "게임을 종료하는 방법"
            Label16.Text = "항상 가격변동을 주시"
            Label17.Text = "◀'나가기'"
        End If
    End Sub
End Class