[RESOLVED] [2005] 2 Classes with same Constants

[geobest]

Hello

i have 2 classes with wame constants

A.Cities_Lan_EN.vb

Public Class Cities_Lan_EN
 
Public Const Literal_FormName As String  = "Cities"

Public Const Literal_NavigationToolBar As String  = "Navigation ToolBar"
Public Const Literal_MainToolBar As String  = "Basic ToolBar"
Public Const Literal_ExtraToolBar As String  = "Extra ToolBar"

End Class

B.Cities_Lan_GR.vb

Public Class Cities_Lan_GR
 
Public Const Literal_FormName As String  = "Πόλεις"

Public Const Literal_NavigationToolBar As String  = "Εργαλεία Μετακίνησης"
Public Const Literal_MainToolBar As String  = "Βασική Γραμμή Εργαλείων"
Public Const Literal_ExtraToolBar As String  = "Πρόσθετα Εργαλεία"

End Class

At my form i have a SUB

Private Sub FormLanguage_Initilize()

Dim CurrentLanguageLiteralsClass As New Cities_Lan_EN

Select Case LanguageID
	Case "EN"
		CurrentLanguageLiteralsClass = New Cities_Lan_EN
	Case "GR"
		CurrentLanguageLiteralsClass = New Cities_Lan_GR
End Select

Me.Text = CurrentLanguageLiteralsClass.Literal_FormName

Me.ToolbarManager1.Toolbars("ToolBar1").Text = CurrentLanguageLiteralsClass.Literal_NavigationToolBar
Me.ToolbarManager1.Toolbars("ToolBar2").Text = CurrentLanguageLiteralsClass.Literal_MainToolBar
Me.ToolbarManager1.Toolbars("ToolBar3").Text = CurrentLanguageLiteralsClass.Literal_ExtraToolBar

End Sub

I take the warning

Access of shared member, constant member, enum member or nested type through an instance; qualifying expression will not be evaluated.

What i have to change to Fix that problem

Thanks in Advance
Geobest