Kan man på något sätt göra så att programmet väljer språk efter
vad som är standar i datorn
Ex. om den är Svensk så ska programmet välja Svenska
Och om det inte är det, så ska den välja Engelska
Sören

MODUL
Option Explicit
'-------------------------------
' API Type Definitions
'-------------------------------

Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

'-------------------------------------------------------
' API constants
'-------------------------------------------------------

Public Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language
Public Const LOCALE_USER_DEFAULT = &H400


' Extracts a VB string from a buffer containing a null terminated
' string
Public Function LPSTRToVBString$(ByVal s$)
Dim nullpos&
nullpos& = InStr(s$, Chr$(0))
If nullpos > 0 Then
LPSTRToVBString = Left$(s$, nullpos - 1)
Else
LPSTRToVBString = ""
End If
End Function

FORM ****************************
Dim buffer As String * 100 ' Kontrollera vilket språk systemet använder
Dim dl&
dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SENGLANGUAGE, buffer, 99)
If LPSTRToVBString(buffer) = "Swedish" Then ' Om systemspråket är svenska välj detta - annars engelska
iLanguage = 2
Else:
iLanguage = 1
End If
Language ' Gör en Resoursfil eller modul där du läser in text du skall använda