Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

28 Eylül 2010 Salı

ISO 639 Codes Alphabetic By Language Name And Window® LCID





'UserForm1

Option Explicit
'A) Normal Reference Add

'A1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'A2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'A3) Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\STDOLE2.TLB
'A4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'A5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
'A6) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\WINDOWS\system32\MSCOMCTL.OCX [Picture= 1]

'B) Tools Add on UserForm1\

'1. Image1,Label1,Label2
'2. MultiPage1
'3. MultiPage1\Page(0)\Label3,Label4,Label5,Label6,Label7,ListBox1
'4. MultiPage1\Page(1)\Label8,Label9,Label10,Label11,Label12,ListBox2
'5. MultiPage1\Page(2)\Label13,Label14,Label15,Label16,Label17,ListBox3
'6. MultiPage1\Page(3)\Label18,Label19,Label20,Label21,Label22,Label23,Label24,ListBox4
'7. MultiPage1\Page(4)\Label25,Label26,Label27,Label28,Label29,Label30,Label31,Label32,Label33,Label34,Label35,Label36

Private i As Single
Private LisanIDExeMode As Long, LisanIDHelp As Long, LisanIDInstall As Long, LisanIDUI As Long, LisanIDUIPrevious As Long, Tanım As String
Private EkranBezeme As New Class1
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] ISO 639 CODES ALPHABETIC BY LANGUAGE NAME and WINDOW LCID"
Application.Visible = False
Application.VBE.MainWindow.Visible = False
Set EkranBezeme.ResimEkle = Me
Set EkranBezeme.Ekran1 = Me
Call EkranDüzenle
Call ISO_639_CODES_ALPHABETIC_BY_LANGUAGE_NAME_ENGLISH_SPELLING
Call ISO_639_CODES_SORTED_BY_LANGUAGE_CODE
Call ISO_639_LANGUAGE_CODES_SORTED_BY_LANGUAGE_GROUP
Call Windows_Locale_Codes_Sorted_by_Locale_ID_LCID_Hexadecimal
Call LisanKontrol
MultiPage1.Value = 4

End Sub
Private Sub UserForm_Activate()

On Error Resume Next
With Me

.Top = (Application.Height - .Height) / 2
.Left = (Application.Width - .Width) / 2

End With

End Sub
Private Sub UserForm_Resize()

On Error Resume Next
With Me

.Top = (Application.Height - .Height) / 2
.Left = (Application.Width - .Width) / 2

End With

End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

On Error Resume Next
Application.Visible = True
End

End Sub
Sub EkranDüzenle()

On Error Resume Next
With Me

.Width = 516
.Height = 384.75
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = 1
.PictureTiling = False
With Image1

.BackStyle = fmBackStyleTransparent
.BorderColor = &H8000000E
.BorderStyle = fmBorderStyleSingle
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.Picture = Resim(URL2)
'.Picture = LoadPicture("C:\Documents and Settings\PC\Desktop\BLOGSPOT\Örnekİkonlar\PBİD.ico")

End With
With Label1

.Caption = " " & "Mustafa ULUSARAÇ"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 6
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFFFF80

End With
With Label2

.Caption = " " & "01ulusarac@superonline.com"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 18
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFFFF80

End With
With MultiPage1

.Left = 6
.Top = 42
.Height = 312
.Width = 498
.BackColor = &H603000
.TabOrientation = fmTabOrientationBottom
.Style = fmTabStyleTabs

End With
With MultiPage1.Pages(0)

.Caption = "ISO 639 C.A.By.L.N."
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = 1
.PictureTiling = False
With Label3

.Left = 6
.Top = 6
.Width = 480
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "ISO 639 CODES ALPHABETIC BY LANGUAGE NAME (ENGLISH SPELLING)"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label4

.Left = 6
.Top = 18
.Width = 42
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "No"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label5

.Left = 48
.Top = 18
.Width = 120
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LANGUAGE NAME"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label6

.Left = 168
.Top = 18
.Width = 48
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "CODE"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label7

.Left = 216
.Top = 18
.Width = 270
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LANGUAGE FAMILY"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With ListBox1

.Top = 30
.Left = 6
.Width = 480
.Height = 256.55
.BackColor = &H80000018
.SpecialEffect = fmSpecialEffectEtched
.ColumnCount = 4
.ColumnWidths = "42;120;48;252"
.BackColor = VBA.RGB(0, 66, 107)
.ForeColor = &HFFFF80

End With

End With
With MultiPage1.Pages(1)

.Caption = "ISO 639 C.S.By.L.C"
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = 1
.PictureTiling = False
With Label8

.Left = 6
.Top = 6
.Width = 480
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "ISO 639CODES SORTED BY LANGUAGE CODE"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label9

.Left = 6
.Top = 18
.Width = 42
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "No"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label10

.Left = 48
.Top = 18
.Width = 110
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LANGUAGE NAME"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label11

.Left = 158
.Top = 18
.Width = 48
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "CODE"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label12

.Left = 206
.Top = 18
.Width = 280
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LANGUAGE FAMILY"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With ListBox2

.Top = 30
.Left = 6
.Width = 480
.Height = 256.55
.BackColor = &H80000018
.SpecialEffect = fmSpecialEffectEtched
.ColumnCount = 4
.ColumnWidths = "42;110;48;252"
.BackColor = VBA.RGB(0, 66, 107)
.ForeColor = &HFFFF80

End With

End With
With MultiPage1.Pages(2)

.Caption = "ISO 639 C.S.By.L.G."
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = 1
.PictureTiling = False
With Label13

.Left = 6
.Top = 6
.Width = 480
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "ISO 639LANGUAGE CODES SORTED BY LANGUAGE GROUP"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label14

.Left = 6
.Top = 18
.Width = 42
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "No"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label15

.Left = 48
.Top = 18
.Width = 120
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LANGUAGE NAME"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label16

.Left = 168
.Top = 18
.Width = 48
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "CODE"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With Label17

.Left = 216
.Top = 18
.Width = 270
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LANGUAGE FAMILY"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80

End With
With ListBox3

.Top = 30
.Left = 6
.Width = 480
.Height = 256.55
.BackColor = &H80000018
.SpecialEffect = fmSpecialEffectEtched
.ColumnCount = 4
.ColumnWidths = "42;120;48;252"
.BackColor = VBA.RGB(0, 66, 107)
.ForeColor = &HFFFF80

End With

End With
With MultiPage1.Pages(3)

.Caption = "W.L.C.S.By.L.ID"
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = 1
.PictureTiling = False
With Label18

.Left = 6
.Top = 6
.Width = 480
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "Windows Locale Codes Sorted by Locale ID (LCID), Hexadecimal"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label19

.Left = 6
.Top = 18
.Width = 42
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "No"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label20

.Left = 48
.Top = 18
.Width = 180
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "Language (Locale)"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label21

.Left = 228
.Top = 18
.Width = 60
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LCID Decimal"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label22

.Left = 288
.Top = 18
.Width = 60
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "LCID Hexade."
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label23

.Left = 348
.Top = 18
.Width = 60
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "Codepage"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label24

.Left = 408
.Top = 18
.Width = 78
.Height = 12
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "Country Code"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With ListBox4

.Top = 30
.Left = 6
.Width = 480
.Height = 256.55
.BackColor = VBA.RGB(0, 66, 107)
.ForeColor = &HFFFF80
.SpecialEffect = fmSpecialEffectEtched
.ColumnCount = 6
.ColumnWidths = "42;180;60;60;60;60"

End With

End With
With MultiPage1.Pages(4)

.Caption = "PC.L.C.I.D."
.Picture = Resim(URL3)
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = 1
.PictureTiling = False
With Label25

.Left = 42
.Top = 72
.Width = 402
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = "PC Language Setting"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = True

End With
With Label26

.Left = 42
.Top = 90
.Width = 276
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignLeft
.Caption = " Application.LanguageSettings.LanguageID(msoLanguageIDExeMode)"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label27

.Left = 318
.Top = 90
.Width = 126
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = ""
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label28

.Left = 42
.Top = 108
.Width = 276
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignLeft
.Caption = " Application.LanguageSettings.LanguageID(msoLanguageIDHelp)"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label29

.Left = 318
.Top = 108
.Width = 126
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = ""
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label30

.Left = 42
.Top = 126
.Width = 276
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignLeft
.Caption = " Application.LanguageSettings.LanguageID(msoLanguageIDInstall)"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label31

.Left = 318
.Top = 126
.Width = 126
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = ""
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label32

.Left = 42
.Top = 144
.Width = 276
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignLeft
.Caption = " Application.LanguageSettings.LanguageID(msoLanguageIDUI)"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label33

.Left = 318
.Top = 144
.Width = 126
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = ""
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label34

.Left = 42
.Top = 162
.Width = 276
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignLeft
.Caption = " Application.LanguageSettings.LanguageID(msoLanguageIDUIPrevious)"
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label35

.Left = 318
.Top = 162
.Width = 126
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = ""
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = False

End With
With Label36

.Left = 42
.Top = 180
.Width = 402
.Height = 18
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignCenter
.Caption = ""
.BackStyle = fmBackStyleTransparent
.ForeColor = &HFFFF80
.Font.Bold = True

End With

End With

End With

End Sub
Private Sub ISO_639_CODES_ALPHABETIC_BY_LANGUAGE_NAME_ENGLISH_SPELLING()

On Error Resume Next
ListBox1.AddItem 1: ListBox1.List(0, 1) = "ABKHAZIAN": ListBox1.List(0, 2) = "AB": ListBox1.List(0, 3) = "IBERO-CAUCASIAN"
ListBox1.AddItem 2: ListBox1.List(1, 1) = "AFAN (OROMO)": ListBox1.List(1, 2) = "OM": ListBox1.List(1, 3) = "HAMITIC"
ListBox1.AddItem 3: ListBox1.List(2, 1) = "AFAR": ListBox1.List(2, 2) = "AA": ListBox1.List(2, 3) = "HAMITIC"
ListBox1.AddItem 4: ListBox1.List(3, 1) = "AFRIKAANS": ListBox1.List(3, 2) = "AF": ListBox1.List(3, 3) = "GERMANIC"
ListBox1.AddItem 5: ListBox1.List(4, 1) = "ALBANIAN": ListBox1.List(4, 2) = "SQ": ListBox1.List(4, 3) = "INDO-EUROPEAN (OTHER)"
ListBox1.AddItem 6: ListBox1.List(5, 1) = "AMHARIC": ListBox1.List(5, 2) = "AM": ListBox1.List(5, 3) = "SEMITIC"
ListBox1.AddItem 7: ListBox1.List(6, 1) = "ARABIC": ListBox1.List(6, 2) = "AR": ListBox1.List(6, 3) = "SEMITIC"
ListBox1.AddItem 8: ListBox1.List(7, 1) = "ARMENIAN": ListBox1.List(7, 2) = "HY": ListBox1.List(7, 3) = "INDO-EUROPEAN (OTHER)"
ListBox1.AddItem 9: ListBox1.List(8, 1) = "ASSAMESE": ListBox1.List(8, 2) = "AS": ListBox1.List(8, 3) = "INDIAN"
ListBox1.AddItem 10: ListBox1.List(9, 1) = "AYMARA": ListBox1.List(9, 2) = "AY": ListBox1.List(9, 3) = "AMERINDIAN"
ListBox1.AddItem 11: ListBox1.List(10, 1) = "AZERBAIJANI": ListBox1.List(10, 2) = "AZ": ListBox1.List(10, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 12: ListBox1.List(11, 1) = "BASHKIR": ListBox1.List(11, 2) = "BA": ListBox1.List(11, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 13: ListBox1.List(12, 1) = "BASQUE": ListBox1.List(12, 2) = "EU": ListBox1.List(12, 3) = "BASQUE"
ListBox1.AddItem 14: ListBox1.List(13, 1) = "BENGALI;BANGLA": ListBox1.List(13, 2) = "BN": ListBox1.List(13, 3) = "INDIAN"
ListBox1.AddItem 15: ListBox1.List(14, 1) = "BHUTANI": ListBox1.List(14, 2) = "DZ": ListBox1.List(14, 3) = "ASIAN"
ListBox1.AddItem 16: ListBox1.List(15, 1) = "BIHARI": ListBox1.List(15, 2) = "BH": ListBox1.List(15, 3) = "INDIAN"
ListBox1.AddItem 17: ListBox1.List(16, 1) = "BISLAMA": ListBox1.List(16, 2) = "BI": ListBox1.List(16, 3) = "[not given]"
ListBox1.AddItem 18: ListBox1.List(17, 1) = "BRETON": ListBox1.List(17, 2) = "BR": ListBox1.List(17, 3) = "CELTIC"
ListBox1.AddItem 19: ListBox1.List(18, 1) = "BULGARIAN": ListBox1.List(18, 2) = "BG": ListBox1.List(18, 3) = "SLAVIC"
ListBox1.AddItem 20: ListBox1.List(19, 1) = "BURMESE": ListBox1.List(19, 2) = "MY": ListBox1.List(19, 3) = "ASIAN"
ListBox1.AddItem 21: ListBox1.List(20, 1) = "BYELORUSSIAN": ListBox1.List(20, 2) = "BE": ListBox1.List(20, 3) = "SLAVIC"
ListBox1.AddItem 22: ListBox1.List(21, 1) = "CAMBODIAN": ListBox1.List(21, 2) = "KM": ListBox1.List(21, 3) = "ASIAN"
ListBox1.AddItem 23: ListBox1.List(22, 1) = "CATALAN": ListBox1.List(22, 2) = "CA": ListBox1.List(22, 3) = "ROMANCE"
ListBox1.AddItem 24: ListBox1.List(23, 1) = "CHINESE": ListBox1.List(23, 2) = "ZH": ListBox1.List(23, 3) = "ASIAN"
ListBox1.AddItem 25: ListBox1.List(24, 1) = "CORSICAN": ListBox1.List(24, 2) = "CO": ListBox1.List(24, 3) = "ROMANCE"
ListBox1.AddItem 26: ListBox1.List(25, 1) = "CROATIAN": ListBox1.List(25, 2) = "HR": ListBox1.List(25, 3) = "SLAVIC"
ListBox1.AddItem 27: ListBox1.List(26, 1) = "CZECH": ListBox1.List(26, 2) = "CS": ListBox1.List(26, 3) = "SLAVIC"
ListBox1.AddItem 28: ListBox1.List(27, 1) = "DANISH": ListBox1.List(27, 2) = "DA": ListBox1.List(27, 3) = "GERMANIC"
ListBox1.AddItem 29: ListBox1.List(28, 1) = "DUTCH": ListBox1.List(28, 2) = "NL": ListBox1.List(28, 3) = "GERMANIC"
ListBox1.AddItem 30: ListBox1.List(29, 1) = "ENGLISH": ListBox1.List(29, 2) = "EN": ListBox1.List(29, 3) = "GERMANIC"
ListBox1.AddItem 31: ListBox1.List(30, 1) = "ESPERANTO": ListBox1.List(30, 2) = "EO": ListBox1.List(30, 3) = "INTERNATIONAL AUX."
ListBox1.AddItem 32: ListBox1.List(31, 1) = "ESTONIAN": ListBox1.List(31, 2) = "ET": ListBox1.List(31, 3) = "FINNO-UGRIC"
ListBox1.AddItem 33: ListBox1.List(32, 1) = "FAROESE": ListBox1.List(32, 2) = "FO": ListBox1.List(32, 3) = "GERMANIC"
ListBox1.AddItem 34: ListBox1.List(33, 1) = "FIJI": ListBox1.List(33, 2) = "FJ": ListBox1.List(33, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 35: ListBox1.List(34, 1) = "FINNISH": ListBox1.List(34, 2) = "FI": ListBox1.List(34, 3) = "FINNO-UGRIC"
ListBox1.AddItem 36: ListBox1.List(35, 1) = "FRENCH": ListBox1.List(35, 2) = "FR": ListBox1.List(35, 3) = "ROMANCE"
ListBox1.AddItem 37: ListBox1.List(36, 1) = "FRISIAN": ListBox1.List(36, 2) = "FY": ListBox1.List(36, 3) = "GERMANIC"
ListBox1.AddItem 38: ListBox1.List(37, 1) = "GALICIAN": ListBox1.List(37, 2) = "GL": ListBox1.List(37, 3) = "ROMANCE"
ListBox1.AddItem 39: ListBox1.List(38, 1) = "GEORGIAN": ListBox1.List(38, 2) = "KA": ListBox1.List(38, 3) = "IBERO-CAUCASIAN"
ListBox1.AddItem 40: ListBox1.List(39, 1) = "GERMAN": ListBox1.List(39, 2) = "DE": ListBox1.List(39, 3) = "GERMANIC"
ListBox1.AddItem 41: ListBox1.List(40, 1) = "GREEK": ListBox1.List(40, 2) = "EL": ListBox1.List(40, 3) = "LATIN/GREEK"
ListBox1.AddItem 42: ListBox1.List(41, 1) = "GREENLANDIC": ListBox1.List(41, 2) = "KL": ListBox1.List(41, 3) = "ESKIMO"
ListBox1.AddItem 43: ListBox1.List(42, 1) = "GUARANI": ListBox1.List(42, 2) = "GN": ListBox1.List(42, 3) = "AMERINDIAN"
ListBox1.AddItem 44: ListBox1.List(43, 1) = "GUJARATI": ListBox1.List(43, 2) = "GU": ListBox1.List(43, 3) = "INDIAN"
ListBox1.AddItem 45: ListBox1.List(44, 1) = "HAUSA": ListBox1.List(44, 2) = "HA": ListBox1.List(44, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 46: ListBox1.List(45, 1) = "HEBREW": ListBox1.List(45, 2) = "HE": ListBox1.List(45, 3) = "SEMITIC [*Changed1989 from original ISO 639:1988, IW]"
ListBox1.AddItem 47: ListBox1.List(46, 1) = "HINDI": ListBox1.List(46, 2) = "HI": ListBox1.List(46, 3) = "INDIAN"
ListBox1.AddItem 48: ListBox1.List(47, 1) = "HUNGARIAN": ListBox1.List(47, 2) = "HU": ListBox1.List(47, 3) = "FINNO-UGRIC"
ListBox1.AddItem 49: ListBox1.List(48, 1) = "ICELANDIC": ListBox1.List(48, 2) = "IS": ListBox1.List(48, 3) = "GERMANIC"
ListBox1.AddItem 50: ListBox1.List(49, 1) = "INDONESIAN": ListBox1.List(49, 2) = "ID": ListBox1.List(49, 3) = "OCEANIC/INDONESIAN [*Changed 1989 from original ISO 639:1988, IN]"
ListBox1.AddItem 51: ListBox1.List(50, 1) = "INTERLINGUA": ListBox1.List(50, 2) = "IA": ListBox1.List(50, 3) = "INTERNATIONAL AUX."
ListBox1.AddItem 52: ListBox1.List(51, 1) = "INTERLINGUE": ListBox1.List(51, 2) = "IE": ListBox1.List(51, 3) = "INTERNATIONAL AUX."
ListBox1.AddItem 53: ListBox1.List(52, 1) = "INUKTITUT": ListBox1.List(52, 2) = "IU": ListBox1.List(52, 3) = "[ ]"
ListBox1.AddItem 54: ListBox1.List(53, 1) = "INUPIAK": ListBox1.List(53, 2) = "IK": ListBox1.List(53, 3) = "ESKIMO"
ListBox1.AddItem 55: ListBox1.List(54, 1) = "IRISH": ListBox1.List(54, 2) = "GA": ListBox1.List(54, 3) = "CELTIC"
ListBox1.AddItem 56: ListBox1.List(55, 1) = "ITALIAN": ListBox1.List(55, 2) = "IT": ListBox1.List(55, 3) = "ROMANCE"
ListBox1.AddItem 57: ListBox1.List(56, 1) = "JAPANESE": ListBox1.List(56, 2) = "JA": ListBox1.List(56, 3) = "ASIAN"
ListBox1.AddItem 58: ListBox1.List(57, 1) = "JAVANESE": ListBox1.List(57, 2) = "JV": ListBox1.List(57, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 59: ListBox1.List(58, 1) = "KANNADA": ListBox1.List(58, 2) = "KN": ListBox1.List(58, 3) = "DRAVIDIAN"
ListBox1.AddItem 60: ListBox1.List(59, 1) = "KASHMIRI": ListBox1.List(59, 2) = "KS": ListBox1.List(59, 3) = "INDIAN"
ListBox1.AddItem 61: ListBox1.List(60, 1) = "KAZAKH": ListBox1.List(60, 2) = "KK": ListBox1.List(60, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 62: ListBox1.List(61, 1) = "KINYARWANDA": ListBox1.List(61, 2) = "RW": ListBox1.List(61, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 63: ListBox1.List(62, 1) = "KIRGHIZ": ListBox1.List(62, 2) = "KY": ListBox1.List(62, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 64: ListBox1.List(63, 1) = "KURUNDI": ListBox1.List(63, 2) = "RN": ListBox1.List(63, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 65: ListBox1.List(64, 1) = "KOREAN": ListBox1.List(64, 2) = "KO": ListBox1.List(64, 3) = "ASIAN"
ListBox1.AddItem 66: ListBox1.List(65, 1) = "KURDISH": ListBox1.List(65, 2) = "KU": ListBox1.List(65, 3) = "IRANIAN"
ListBox1.AddItem 67: ListBox1.List(66, 1) = "LAOTHIAN": ListBox1.List(66, 2) = "LO": ListBox1.List(66, 3) = "ASIAN"
ListBox1.AddItem 68: ListBox1.List(67, 1) = "LATIN": ListBox1.List(67, 2) = "LA": ListBox1.List(67, 3) = "LATIN/GREEK"
ListBox1.AddItem 69: ListBox1.List(68, 1) = "LATVIAN;LETTISH": ListBox1.List(68, 2) = "LV": ListBox1.List(68, 3) = "BALTIC"
ListBox1.AddItem 70: ListBox1.List(69, 1) = "LINGALA": ListBox1.List(69, 2) = "LN": ListBox1.List(69, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 71: ListBox1.List(70, 1) = "LITHUANIAN": ListBox1.List(70, 2) = "LT": ListBox1.List(70, 3) = "BALTIC"
ListBox1.AddItem 72: ListBox1.List(71, 1) = "MACEDONIAN": ListBox1.List(71, 2) = "MK": ListBox1.List(71, 3) = "SLAVIC"
ListBox1.AddItem 73: ListBox1.List(72, 1) = "MALAGASY": ListBox1.List(72, 2) = "MG": ListBox1.List(72, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 74: ListBox1.List(73, 1) = "MALAY": ListBox1.List(73, 2) = "MS": ListBox1.List(73, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 75: ListBox1.List(74, 1) = "MALAYALAM": ListBox1.List(74, 2) = "ML": ListBox1.List(74, 3) = "DRAVIDIAN"
ListBox1.AddItem 76: ListBox1.List(75, 1) = "MALTESE": ListBox1.List(75, 2) = "MT": ListBox1.List(75, 3) = "SEMITIC"
ListBox1.AddItem 77: ListBox1.List(76, 1) = "MAORI": ListBox1.List(76, 2) = "MI": ListBox1.List(76, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 78: ListBox1.List(77, 1) = "MARATHI": ListBox1.List(77, 2) = "MR": ListBox1.List(77, 3) = "INDIAN"
ListBox1.AddItem 79: ListBox1.List(78, 1) = "MOLDAVIAN": ListBox1.List(78, 2) = "MO": ListBox1.List(78, 3) = "ROMANCE"
ListBox1.AddItem 80: ListBox1.List(79, 1) = "MONGOLIAN": ListBox1.List(79, 2) = "MN": ListBox1.List(79, 3) = "[not given]"
ListBox1.AddItem 81: ListBox1.List(80, 1) = "NAURU": ListBox1.List(80, 2) = "NA": ListBox1.List(80, 3) = "[not given]"
ListBox1.AddItem 82: ListBox1.List(81, 1) = "NEPALI": ListBox1.List(81, 2) = "NE": ListBox1.List(81, 3) = "INDIAN"
ListBox1.AddItem 83: ListBox1.List(82, 1) = "NORWEGIAN": ListBox1.List(82, 2) = "NO": ListBox1.List(82, 3) = "GERMANIC"
ListBox1.AddItem 84: ListBox1.List(83, 1) = "OCCITAN": ListBox1.List(83, 2) = "OC": ListBox1.List(83, 3) = "ROMANCE"
ListBox1.AddItem 85: ListBox1.List(84, 1) = "ORIYA": ListBox1.List(84, 2) = "OR": ListBox1.List(84, 3) = "INDIAN"
ListBox1.AddItem 86: ListBox1.List(85, 1) = "PASHTO;PUSHTO": ListBox1.List(85, 2) = "PS": ListBox1.List(85, 3) = "IRANIAN"
ListBox1.AddItem 87: ListBox1.List(86, 1) = "PERSIAN (farsi)": ListBox1.List(86, 2) = "FA": ListBox1.List(86, 3) = "IRANIAN"
ListBox1.AddItem 88: ListBox1.List(87, 1) = "POLISH": ListBox1.List(87, 2) = "PL": ListBox1.List(87, 3) = "SLAVIC"
ListBox1.AddItem 89: ListBox1.List(88, 1) = "PORTUGUESE": ListBox1.List(88, 2) = "PT": ListBox1.List(88, 3) = "ROMANCE"
ListBox1.AddItem 90: ListBox1.List(89, 1) = "PUNJABI": ListBox1.List(89, 2) = "PA": ListBox1.List(89, 3) = "INDIAN"
ListBox1.AddItem 91: ListBox1.List(90, 1) = "QUECHUA": ListBox1.List(90, 2) = "QU": ListBox1.List(90, 3) = "AMERINDIAN"
ListBox1.AddItem 92: ListBox1.List(91, 1) = "RHAETO-ROMANCE": ListBox1.List(91, 2) = "RM": ListBox1.List(91, 3) = "ROMANCE"
ListBox1.AddItem 93: ListBox1.List(92, 1) = "ROMANIAN": ListBox1.List(92, 2) = "RO": ListBox1.List(92, 3) = "ROMANCE"
ListBox1.AddItem 94: ListBox1.List(93, 1) = "RUSSIAN": ListBox1.List(93, 2) = "RU": ListBox1.List(93, 3) = "SLAVIC"
ListBox1.AddItem 95: ListBox1.List(94, 1) = "SAMOAN": ListBox1.List(94, 2) = "SM": ListBox1.List(94, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 96: ListBox1.List(95, 1) = "SANGHO": ListBox1.List(95, 2) = "SG": ListBox1.List(95, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 97: ListBox1.List(96, 1) = "SANSKRIT": ListBox1.List(96, 2) = "SA": ListBox1.List(96, 3) = "INDIAN"
ListBox1.AddItem 98: ListBox1.List(97, 1) = "SCOTS GAELIC": ListBox1.List(97, 2) = "GD": ListBox1.List(97, 3) = "CELTIC"
ListBox1.AddItem 99: ListBox1.List(98, 1) = "SERBIAN": ListBox1.List(98, 2) = "SR": ListBox1.List(98, 3) = "SLAVIC"
ListBox1.AddItem 100: ListBox1.List(99, 1) = "SERBO-CROATIAN": ListBox1.List(99, 2) = "SH": ListBox1.List(99, 3) = "SLAVIC"
ListBox1.AddItem 101: ListBox1.List(100, 1) = "SESOTHO": ListBox1.List(100, 2) = "ST": ListBox1.List(100, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 102: ListBox1.List(101, 1) = "SETSWANA": ListBox1.List(101, 2) = "TN": ListBox1.List(101, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 103: ListBox1.List(102, 1) = "SHONA": ListBox1.List(102, 2) = "SN": ListBox1.List(102, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 104: ListBox1.List(103, 1) = "SINDHI": ListBox1.List(103, 2) = "SD": ListBox1.List(103, 3) = "INDIAN"
ListBox1.AddItem 105: ListBox1.List(104, 1) = "SINGHALESE": ListBox1.List(104, 2) = "SI": ListBox1.List(104, 3) = "INDIAN"
ListBox1.AddItem 106: ListBox1.List(105, 1) = "SISWATI": ListBox1.List(105, 2) = "SS": ListBox1.List(105, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 107: ListBox1.List(106, 1) = "SLOVAK": ListBox1.List(106, 2) = "SK": ListBox1.List(106, 3) = "SLAVIC"
ListBox1.AddItem 108: ListBox1.List(107, 1) = "SLOVENIAN": ListBox1.List(107, 2) = "SL": ListBox1.List(107, 3) = "SLAVIC"
ListBox1.AddItem 109: ListBox1.List(108, 1) = "SOMALI": ListBox1.List(108, 2) = "SO": ListBox1.List(108, 3) = "HAMITIC"
ListBox1.AddItem 110: ListBox1.List(109, 1) = "SPANISH": ListBox1.List(109, 2) = "ES": ListBox1.List(109, 3) = "ROMANCE"
ListBox1.AddItem 111: ListBox1.List(110, 1) = "SUNDANESE": ListBox1.List(110, 2) = "SU": ListBox1.List(110, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 112: ListBox1.List(111, 1) = "SWAHILI": ListBox1.List(111, 2) = "SW": ListBox1.List(111, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 113: ListBox1.List(112, 1) = "SWEDISH": ListBox1.List(112, 2) = "SV": ListBox1.List(112, 3) = "GERMANIC"
ListBox1.AddItem 114: ListBox1.List(113, 1) = "TAGALOG": ListBox1.List(113, 2) = "TL": ListBox1.List(113, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 115: ListBox1.List(114, 1) = "TAJIK": ListBox1.List(114, 2) = "TG": ListBox1.List(114, 3) = "IRANIAN"
ListBox1.AddItem 116: ListBox1.List(115, 1) = "TAMIL": ListBox1.List(115, 2) = "TA": ListBox1.List(115, 3) = "DRAVIDIAN"
ListBox1.AddItem 117: ListBox1.List(116, 1) = "TATAR": ListBox1.List(116, 2) = "TT": ListBox1.List(116, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 118: ListBox1.List(117, 1) = "TELUGU": ListBox1.List(117, 2) = "TE": ListBox1.List(117, 3) = "DRAVIDIAN"
ListBox1.AddItem 119: ListBox1.List(118, 1) = "THAI": ListBox1.List(118, 2) = "TH": ListBox1.List(118, 3) = "ASIAN"
ListBox1.AddItem 120: ListBox1.List(119, 1) = "TIBETAN": ListBox1.List(119, 2) = "BO": ListBox1.List(119, 3) = "ASIAN"
ListBox1.AddItem 121: ListBox1.List(120, 1) = "TIGRINYA": ListBox1.List(120, 2) = "TI": ListBox1.List(120, 3) = "SEMITIC"
ListBox1.AddItem 122: ListBox1.List(121, 1) = "TONGA": ListBox1.List(121, 2) = "TO": ListBox1.List(121, 3) = "OCEANIC/INDONESIAN"
ListBox1.AddItem 123: ListBox1.List(122, 1) = "TSONGA": ListBox1.List(122, 2) = "TS": ListBox1.List(122, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 124: ListBox1.List(123, 1) = "TURKISH": ListBox1.List(123, 2) = "TR": ListBox1.List(123, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 125: ListBox1.List(124, 1) = "TURKMEN": ListBox1.List(124, 2) = "TK": ListBox1.List(124, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 126: ListBox1.List(125, 1) = "TWI": ListBox1.List(125, 2) = "TW": ListBox1.List(125, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 127: ListBox1.List(126, 1) = "UIGUR": ListBox1.List(126, 2) = "UG": ListBox1.List(126, 3) = "[ ]"
ListBox1.AddItem 128: ListBox1.List(127, 1) = "UKRAINIAN": ListBox1.List(127, 2) = "UK": ListBox1.List(127, 3) = "SLAVIC"
ListBox1.AddItem 129: ListBox1.List(128, 1) = "URDU": ListBox1.List(128, 2) = "UR": ListBox1.List(128, 3) = "INDIAN"
ListBox1.AddItem 130: ListBox1.List(129, 1) = "UZBEK": ListBox1.List(129, 2) = "UZ": ListBox1.List(129, 3) = "TURKIC/ALTAIC"
ListBox1.AddItem 131: ListBox1.List(130, 1) = "VIETNAMESE": ListBox1.List(130, 2) = "VI": ListBox1.List(130, 3) = "ASIAN"
ListBox1.AddItem 132: ListBox1.List(131, 1) = "VOLAPUK": ListBox1.List(131, 2) = "VO": ListBox1.List(131, 3) = "INTERNATIONAL AUX."
ListBox1.AddItem 133: ListBox1.List(132, 1) = "WELSH": ListBox1.List(132, 2) = "CY": ListBox1.List(132, 3) = "CELTIC"
ListBox1.AddItem 134: ListBox1.List(133, 1) = "WOLOF": ListBox1.List(133, 2) = "WO": ListBox1.List(133, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 135: ListBox1.List(134, 1) = "XHOSA": ListBox1.List(134, 2) = "XH": ListBox1.List(134, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 136: ListBox1.List(135, 1) = "YIDDISH": ListBox1.List(135, 2) = "YI": ListBox1.List(135, 3) = "GERMANIC [*Changed 1989 from original ISO 639:1988, JI]"
ListBox1.AddItem 137: ListBox1.List(136, 1) = "YORUBA": ListBox1.List(136, 2) = "YO": ListBox1.List(136, 3) = "NEGRO-AFRICAN"
ListBox1.AddItem 138: ListBox1.List(137, 1) = "ZHUANG": ListBox1.List(137, 2) = "ZA": ListBox1.List(137, 3) = "[ ]"
ListBox1.AddItem 139: ListBox1.List(138, 1) = "ZULU": ListBox1.List(138, 2) = "ZU": ListBox1.List(138, 3) = "NEGRO-AFRICAN"

End Sub
Private Sub ISO_639_CODES_SORTED_BY_LANGUAGE_CODE()

On Error Resume Next
ListBox2.AddItem 1: ListBox2.List(0, 1) = "AFAR": ListBox2.List(0, 2) = "AA": ListBox2.List(0, 3) = "HAMITIC"
ListBox2.AddItem 2: ListBox2.List(1, 1) = "ABKHAZIAN": ListBox2.List(1, 2) = "AB": ListBox2.List(1, 3) = "IBERO-CAUCASIAN"
ListBox2.AddItem 3: ListBox2.List(2, 1) = "AFRIKAANS": ListBox2.List(2, 2) = "AF": ListBox2.List(2, 3) = "GERMANIC"
ListBox2.AddItem 4: ListBox2.List(3, 1) = "AMHARIC": ListBox2.List(3, 2) = "AM": ListBox2.List(3, 3) = "SEMITIC"
ListBox2.AddItem 5: ListBox2.List(4, 1) = "ARABIC": ListBox2.List(4, 2) = "AR": ListBox2.List(4, 3) = "SEMITIC"
ListBox2.AddItem 6: ListBox2.List(5, 1) = "ASSAMESE": ListBox2.List(5, 2) = "AS": ListBox2.List(5, 3) = "INDIAN"
ListBox2.AddItem 7: ListBox2.List(6, 1) = "AYMARA": ListBox2.List(6, 2) = "AY": ListBox2.List(6, 3) = "AMERINDIAN"
ListBox2.AddItem 8: ListBox2.List(7, 1) = "AZERBAIJANI": ListBox2.List(7, 2) = "AZ": ListBox2.List(7, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 9: ListBox2.List(8, 1) = "BASHKIR": ListBox2.List(8, 2) = "BA": ListBox2.List(8, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 10: ListBox2.List(9, 1) = "BYELORUSSIAN": ListBox2.List(9, 2) = "BE": ListBox2.List(9, 3) = "SLAVIC"
ListBox2.AddItem 11: ListBox2.List(10, 1) = "BULGARIAN": ListBox2.List(10, 2) = "BG": ListBox2.List(10, 3) = "SLAVIC"
ListBox2.AddItem 12: ListBox2.List(11, 1) = "BIHARI": ListBox2.List(11, 2) = "BH": ListBox2.List(11, 3) = "INDIAN"
ListBox2.AddItem 13: ListBox2.List(12, 1) = "BISLAMA": ListBox2.List(12, 2) = "BI": ListBox2.List(12, 3) = "[not given]"
ListBox2.AddItem 14: ListBox2.List(13, 1) = "BENGALI;BANGLA": ListBox2.List(13, 2) = "BN": ListBox2.List(13, 3) = "INDIAN"
ListBox2.AddItem 15: ListBox2.List(14, 1) = "TIBETAN": ListBox2.List(14, 2) = "BO": ListBox2.List(14, 3) = "ASIAN"
ListBox2.AddItem 16: ListBox2.List(15, 1) = "BRETON": ListBox2.List(15, 2) = "BR": ListBox2.List(15, 3) = "CELTIC"
ListBox2.AddItem 17: ListBox2.List(16, 1) = "CATALAN": ListBox2.List(16, 2) = "CA": ListBox2.List(16, 3) = "ROMANCE"
ListBox2.AddItem 18: ListBox2.List(17, 1) = "CORSICAN": ListBox2.List(17, 2) = "CO": ListBox2.List(17, 3) = "ROMANCE"
ListBox2.AddItem 19: ListBox2.List(18, 1) = "CZECH": ListBox2.List(18, 2) = "CS": ListBox2.List(18, 3) = "SLAVIC"
ListBox2.AddItem 20: ListBox2.List(19, 1) = "WELSH": ListBox2.List(19, 2) = "CY": ListBox2.List(19, 3) = "CELTIC"
ListBox2.AddItem 21: ListBox2.List(20, 1) = "DANISH": ListBox2.List(20, 2) = "DA": ListBox2.List(20, 3) = "GERMANIC"
ListBox2.AddItem 22: ListBox2.List(21, 1) = "GERMAN": ListBox2.List(21, 2) = "DE": ListBox2.List(21, 3) = "GERMANIC"
ListBox2.AddItem 23: ListBox2.List(22, 1) = "BHUTANI": ListBox2.List(22, 2) = "DZ": ListBox2.List(22, 3) = "ASIAN"
ListBox2.AddItem 24: ListBox2.List(23, 1) = "GREEK": ListBox2.List(23, 2) = "EL": ListBox2.List(23, 3) = "LATIN/GREEK"
ListBox2.AddItem 25: ListBox2.List(24, 1) = "ENGLISH": ListBox2.List(24, 2) = "EN": ListBox2.List(24, 3) = "GERMANIC"
ListBox2.AddItem 26: ListBox2.List(25, 1) = "ESPERANTO": ListBox2.List(25, 2) = "EO": ListBox2.List(25, 3) = "INTERNATIONAL AUX."
ListBox2.AddItem 27: ListBox2.List(26, 1) = "SPANISH": ListBox2.List(26, 2) = "ES": ListBox2.List(26, 3) = "ROMANCE"
ListBox2.AddItem 28: ListBox2.List(27, 1) = "ESTONIAN": ListBox2.List(27, 2) = "ET": ListBox2.List(27, 3) = "FINNO-UGRIC"
ListBox2.AddItem 29: ListBox2.List(28, 1) = "BASQUE": ListBox2.List(28, 2) = "EU": ListBox2.List(28, 3) = "BASQUE"
ListBox2.AddItem 30: ListBox2.List(29, 1) = "PERSIAN (farsi)": ListBox2.List(29, 2) = "FA": ListBox2.List(29, 3) = "IRANIAN"
ListBox2.AddItem 31: ListBox2.List(30, 1) = "FINNISH": ListBox2.List(30, 2) = "FI": ListBox2.List(30, 3) = "FINNO-UGRIC"
ListBox2.AddItem 32: ListBox2.List(31, 1) = "FIJI": ListBox2.List(31, 2) = "FJ": ListBox2.List(31, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 33: ListBox2.List(32, 1) = "FAROESE": ListBox2.List(32, 2) = "FO": ListBox2.List(32, 3) = "GERMANIC"
ListBox2.AddItem 34: ListBox2.List(33, 1) = "FRENCH": ListBox2.List(33, 2) = "FR": ListBox2.List(33, 3) = "ROMANCE"
ListBox2.AddItem 35: ListBox2.List(34, 1) = "FRISIAN": ListBox2.List(34, 2) = "FY": ListBox2.List(34, 3) = "GERMANIC"
ListBox2.AddItem 36: ListBox2.List(35, 1) = "IRISH": ListBox2.List(35, 2) = "GA": ListBox2.List(35, 3) = "CELTIC"
ListBox2.AddItem 37: ListBox2.List(36, 1) = "SCOTS GAELIC": ListBox2.List(36, 2) = "GD": ListBox2.List(36, 3) = "CELTIC"
ListBox2.AddItem 38: ListBox2.List(37, 1) = "GALICIAN": ListBox2.List(37, 2) = "GL": ListBox2.List(37, 3) = "ROMANCE"
ListBox2.AddItem 39: ListBox2.List(38, 1) = "GUARANI": ListBox2.List(38, 2) = "GN": ListBox2.List(38, 3) = "AMERINDIAN"
ListBox2.AddItem 40: ListBox2.List(39, 1) = "GUJARATI": ListBox2.List(39, 2) = "GU": ListBox2.List(39, 3) = "INDIAN"
ListBox2.AddItem 41: ListBox2.List(40, 1) = "HAUSA": ListBox2.List(40, 2) = "HA": ListBox2.List(40, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 42: ListBox2.List(41, 1) = "HEBREW": ListBox2.List(41, 2) = "HE": ListBox2.List(41, 3) = "SEMITIC [*Changed1989 from original ISO 639:1988, IW]"
ListBox2.AddItem 43: ListBox2.List(42, 1) = "HINDI": ListBox2.List(42, 2) = "HI": ListBox2.List(42, 3) = "INDIAN"
ListBox2.AddItem 44: ListBox2.List(43, 1) = "CROATIAN": ListBox2.List(43, 2) = "HR": ListBox2.List(43, 3) = "SLAVIC"
ListBox2.AddItem 45: ListBox2.List(44, 1) = "HUNGARIAN": ListBox2.List(44, 2) = "HU": ListBox2.List(44, 3) = "FINNO-UGRIC"
ListBox2.AddItem 46: ListBox2.List(45, 1) = "ARMENIAN": ListBox2.List(45, 2) = "HY": ListBox2.List(45, 3) = "INDO-EUROPEAN (OTHER)"
ListBox2.AddItem 47: ListBox2.List(46, 1) = "INTERLINGUA": ListBox2.List(46, 2) = "IA": ListBox2.List(46, 3) = "INTERNATIONAL AUX."
ListBox2.AddItem 48: ListBox2.List(47, 1) = "INTERLINGUE": ListBox2.List(47, 2) = "IE": ListBox2.List(47, 3) = "INTERNATIONAL AUX."
ListBox2.AddItem 49: ListBox2.List(48, 1) = "INUPIAK": ListBox2.List(48, 2) = "IK": ListBox2.List(48, 3) = "ESKIMO"
ListBox2.AddItem 50: ListBox2.List(49, 1) = "INDONESIAN": ListBox2.List(49, 2) = "ID": ListBox2.List(49, 3) = "OCEANIC/INDONESIAN [*Changed 1989 from original ISO 639:1988, IN]"
ListBox2.AddItem 51: ListBox2.List(50, 1) = "ICELANDIC": ListBox2.List(50, 2) = "IS": ListBox2.List(50, 3) = "GERMANIC"
ListBox2.AddItem 52: ListBox2.List(51, 1) = "ITALIAN": ListBox2.List(51, 2) = "IT": ListBox2.List(51, 3) = "ROMANCE"
ListBox2.AddItem 53: ListBox2.List(52, 1) = "INUKTITUT": ListBox2.List(52, 2) = "IU": ListBox2.List(52, 3) = "[ ]"
ListBox2.AddItem 54: ListBox2.List(53, 1) = "JAPANESE": ListBox2.List(53, 2) = "JA": ListBox2.List(53, 3) = "ASIAN"
ListBox2.AddItem 55: ListBox2.List(54, 1) = "JAVANESE": ListBox2.List(54, 2) = "JV": ListBox2.List(54, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 56: ListBox2.List(55, 1) = "GEORGIAN": ListBox2.List(55, 2) = "KA": ListBox2.List(55, 3) = "IBERO-CAUCASIAN"
ListBox2.AddItem 57: ListBox2.List(56, 1) = "KAZAKH": ListBox2.List(56, 2) = "KK": ListBox2.List(56, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 58: ListBox2.List(57, 1) = "GREENLANDIC": ListBox2.List(57, 2) = "KL": ListBox2.List(57, 3) = "ESKIMO"
ListBox2.AddItem 59: ListBox2.List(58, 1) = "CAMBODIAN": ListBox2.List(58, 2) = "KM": ListBox2.List(58, 3) = "ASIAN"
ListBox2.AddItem 60: ListBox2.List(59, 1) = "KANNADA": ListBox2.List(59, 2) = "KN": ListBox2.List(59, 3) = "DRAVIDIAN"
ListBox2.AddItem 61: ListBox2.List(60, 1) = "KOREAN": ListBox2.List(60, 2) = "KO": ListBox2.List(60, 3) = "ASIAN"
ListBox2.AddItem 62: ListBox2.List(61, 1) = "KASHMIRI": ListBox2.List(61, 2) = "KS": ListBox2.List(61, 3) = "INDIAN"
ListBox2.AddItem 63: ListBox2.List(62, 1) = "KURDISH": ListBox2.List(62, 2) = "KU": ListBox2.List(62, 3) = "IRANIAN"
ListBox2.AddItem 64: ListBox2.List(63, 1) = "KIRGHIZ": ListBox2.List(63, 2) = "KY": ListBox2.List(63, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 65: ListBox2.List(64, 1) = "LATIN": ListBox2.List(64, 2) = "LA": ListBox2.List(64, 3) = "LATIN/GREEK"
ListBox2.AddItem 66: ListBox2.List(65, 1) = "LINGALA": ListBox2.List(65, 2) = "LN": ListBox2.List(65, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 67: ListBox2.List(66, 1) = "LAOTHIAN": ListBox2.List(66, 2) = "LO": ListBox2.List(66, 3) = "ASIAN"
ListBox2.AddItem 68: ListBox2.List(67, 1) = "LITHUANIAN": ListBox2.List(67, 2) = "LT": ListBox2.List(67, 3) = "BALTIC"
ListBox2.AddItem 69: ListBox2.List(68, 1) = "LATVIAN;LETTISH": ListBox2.List(68, 2) = "LV": ListBox2.List(68, 3) = "BALTIC"
ListBox2.AddItem 70: ListBox2.List(69, 1) = "MALAGASY": ListBox2.List(69, 2) = "MG": ListBox2.List(69, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 71: ListBox2.List(70, 1) = "MAORI": ListBox2.List(70, 2) = "MI": ListBox2.List(70, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 72: ListBox2.List(71, 1) = "MACEDONIAN": ListBox2.List(71, 2) = "MK": ListBox2.List(71, 3) = "SLAVIC"
ListBox2.AddItem 73: ListBox2.List(72, 1) = "MALAYALAM": ListBox2.List(72, 2) = "ML": ListBox2.List(72, 3) = "DRAVIDIAN"
ListBox2.AddItem 74: ListBox2.List(73, 1) = "MONGOLIAN": ListBox2.List(73, 2) = "MN": ListBox2.List(73, 3) = "[not given]"
ListBox2.AddItem 75: ListBox2.List(74, 1) = "MOLDAVIAN": ListBox2.List(74, 2) = "MO": ListBox2.List(74, 3) = "ROMANCE"
ListBox2.AddItem 76: ListBox2.List(75, 1) = "MARATHI": ListBox2.List(75, 2) = "MR": ListBox2.List(75, 3) = "INDIAN"
ListBox2.AddItem 77: ListBox2.List(76, 1) = "MALAY": ListBox2.List(76, 2) = "MS": ListBox2.List(76, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 78: ListBox2.List(77, 1) = "MALTESE": ListBox2.List(77, 2) = "MT": ListBox2.List(77, 3) = "SEMITIC"
ListBox2.AddItem 79: ListBox2.List(78, 1) = "BURMESE": ListBox2.List(78, 2) = "MY": ListBox2.List(78, 3) = "ASIAN"
ListBox2.AddItem 80: ListBox2.List(79, 1) = "NAURU": ListBox2.List(79, 2) = "NA": ListBox2.List(79, 3) = "[not given]"
ListBox2.AddItem 81: ListBox2.List(80, 1) = "NEPALI": ListBox2.List(80, 2) = "NE": ListBox2.List(80, 3) = "INDIAN"
ListBox2.AddItem 82: ListBox2.List(81, 1) = "DUTCH": ListBox2.List(81, 2) = "NL": ListBox2.List(81, 3) = "GERMANIC"
ListBox2.AddItem 83: ListBox2.List(82, 1) = "NORWEGIAN": ListBox2.List(82, 2) = "NO": ListBox2.List(82, 3) = "GERMANIC"
ListBox2.AddItem 84: ListBox2.List(83, 1) = "OCCITAN": ListBox2.List(83, 2) = "OC": ListBox2.List(83, 3) = "ROMANCE"
ListBox2.AddItem 85: ListBox2.List(84, 1) = "AFAN (OROMO)": ListBox2.List(84, 2) = "OM": ListBox2.List(84, 3) = "HAMITIC"
ListBox2.AddItem 86: ListBox2.List(85, 1) = "ORIYA": ListBox2.List(85, 2) = "OR": ListBox2.List(85, 3) = "INDIAN"
ListBox2.AddItem 87: ListBox2.List(86, 1) = "PUNJABI": ListBox2.List(86, 2) = "PA": ListBox2.List(86, 3) = "INDIAN"
ListBox2.AddItem 88: ListBox2.List(87, 1) = "POLISH": ListBox2.List(87, 2) = "PL": ListBox2.List(87, 3) = "SLAVIC"
ListBox2.AddItem 89: ListBox2.List(88, 1) = "PASHTO;PUSHTO": ListBox2.List(88, 2) = "PS": ListBox2.List(88, 3) = "IRANIAN"
ListBox2.AddItem 90: ListBox2.List(89, 1) = "PORTUGUESE": ListBox2.List(89, 2) = "PT": ListBox2.List(89, 3) = "ROMANCE"
ListBox2.AddItem 91: ListBox2.List(90, 1) = "QUECHUA": ListBox2.List(90, 2) = "QU": ListBox2.List(90, 3) = "AMERINDIAN"
ListBox2.AddItem 92: ListBox2.List(91, 1) = "RHAETO-ROMANCE": ListBox2.List(91, 2) = "RM": ListBox2.List(91, 3) = "ROMANCE"
ListBox2.AddItem 93: ListBox2.List(92, 1) = "KURUNDI": ListBox2.List(92, 2) = "RN": ListBox2.List(92, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 94: ListBox2.List(93, 1) = "ROMANIAN": ListBox2.List(93, 2) = "RO": ListBox2.List(93, 3) = "ROMANCE"
ListBox2.AddItem 95: ListBox2.List(94, 1) = "RUSSIAN": ListBox2.List(94, 2) = "RU": ListBox2.List(94, 3) = "SLAVIC"
ListBox2.AddItem 96: ListBox2.List(95, 1) = "KINYARWANDA": ListBox2.List(95, 2) = "RW": ListBox2.List(95, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 97: ListBox2.List(96, 1) = "SANSKRIT": ListBox2.List(96, 2) = "SA": ListBox2.List(96, 3) = "INDIAN"
ListBox2.AddItem 98: ListBox2.List(97, 1) = "SINDHI": ListBox2.List(97, 2) = "SD": ListBox2.List(97, 3) = "INDIAN"
ListBox2.AddItem 99: ListBox2.List(98, 1) = "SANGHO": ListBox2.List(98, 2) = "SG": ListBox2.List(98, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 100: ListBox2.List(99, 1) = "SERBO-CROATIAN": ListBox2.List(99, 2) = "SH": ListBox2.List(99, 3) = "SLAVIC"
ListBox2.AddItem 101: ListBox2.List(100, 1) = "SINGHALESE": ListBox2.List(100, 2) = "SI": ListBox2.List(100, 3) = "INDIAN"
ListBox2.AddItem 102: ListBox2.List(101, 1) = "SLOVAK": ListBox2.List(101, 2) = "SK": ListBox2.List(101, 3) = "SLAVIC"
ListBox2.AddItem 103: ListBox2.List(102, 1) = "SLOVENIAN": ListBox2.List(102, 2) = "SL": ListBox2.List(102, 3) = "SLAVIC"
ListBox2.AddItem 104: ListBox2.List(103, 1) = "SAMOAN": ListBox2.List(103, 2) = "SM": ListBox2.List(103, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 105: ListBox2.List(104, 1) = "SHONA": ListBox2.List(104, 2) = "SN": ListBox2.List(104, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 106: ListBox2.List(105, 1) = "SOMALI": ListBox2.List(105, 2) = "SO": ListBox2.List(105, 3) = "HAMITIC"
ListBox2.AddItem 107: ListBox2.List(106, 1) = "ALBANIAN": ListBox2.List(106, 2) = "SQ": ListBox2.List(106, 3) = "INDO-EUROPEAN (OTHER)"
ListBox2.AddItem 108: ListBox2.List(107, 1) = "SERBIAN": ListBox2.List(107, 2) = "SR": ListBox2.List(107, 3) = "SLAVIC"
ListBox2.AddItem 109: ListBox2.List(108, 1) = "SISWATI": ListBox2.List(108, 2) = "SS": ListBox2.List(108, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 110: ListBox2.List(109, 1) = "SESOTHO": ListBox2.List(109, 2) = "ST": ListBox2.List(109, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 111: ListBox2.List(110, 1) = "SUNDANESE": ListBox2.List(110, 2) = "SU": ListBox2.List(110, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 112: ListBox2.List(111, 1) = "SWEDISH": ListBox2.List(111, 2) = "SV": ListBox2.List(111, 3) = "GERMANIC"
ListBox2.AddItem 113: ListBox2.List(112, 1) = "SWAHILI": ListBox2.List(112, 2) = "SW": ListBox2.List(112, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 114: ListBox2.List(113, 1) = "TAMIL": ListBox2.List(113, 2) = "TA": ListBox2.List(113, 3) = "DRAVIDIAN"
ListBox2.AddItem 115: ListBox2.List(114, 1) = "TELUGU": ListBox2.List(114, 2) = "TE": ListBox2.List(114, 3) = "DRAVIDIAN"
ListBox2.AddItem 116: ListBox2.List(115, 1) = "TAJIK": ListBox2.List(115, 2) = "TG": ListBox2.List(115, 3) = "IRANIAN"
ListBox2.AddItem 117: ListBox2.List(116, 1) = "THAI": ListBox2.List(116, 2) = "TH": ListBox2.List(116, 3) = "ASIAN"
ListBox2.AddItem 118: ListBox2.List(117, 1) = "TIGRINYA": ListBox2.List(117, 2) = "TI": ListBox2.List(117, 3) = "SEMITIC"
ListBox2.AddItem 119: ListBox2.List(118, 1) = "TURKMEN": ListBox2.List(118, 2) = "TK": ListBox2.List(118, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 120: ListBox2.List(119, 1) = "TAGALOG": ListBox2.List(119, 2) = "TL": ListBox2.List(119, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 121: ListBox2.List(120, 1) = "SETSWANA": ListBox2.List(120, 2) = "TN": ListBox2.List(120, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 122: ListBox2.List(121, 1) = "TONGA": ListBox2.List(121, 2) = "TO": ListBox2.List(121, 3) = "OCEANIC/INDONESIAN"
ListBox2.AddItem 123: ListBox2.List(122, 1) = "TURKISH": ListBox2.List(122, 2) = "TR": ListBox2.List(122, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 124: ListBox2.List(123, 1) = "TSONGA": ListBox2.List(123, 2) = "TS": ListBox2.List(123, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 125: ListBox2.List(124, 1) = "TATAR": ListBox2.List(124, 2) = "TT": ListBox2.List(124, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 126: ListBox2.List(125, 1) = "TWI": ListBox2.List(125, 2) = "TW": ListBox2.List(125, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 127: ListBox2.List(126, 1) = "UIGUR": ListBox2.List(126, 2) = "UG": ListBox2.List(126, 3) = "[ ]"
ListBox2.AddItem 128: ListBox2.List(127, 1) = "UKRAINIAN": ListBox2.List(127, 2) = "UK": ListBox2.List(127, 3) = "SLAVIC"
ListBox2.AddItem 129: ListBox2.List(128, 1) = "URDU": ListBox2.List(128, 2) = "UR": ListBox2.List(128, 3) = "INDIAN"
ListBox2.AddItem 130: ListBox2.List(129, 1) = "UZBEK": ListBox2.List(129, 2) = "UZ": ListBox2.List(129, 3) = "TURKIC/ALTAIC"
ListBox2.AddItem 131: ListBox2.List(130, 1) = "VIETNAMESE": ListBox2.List(130, 2) = "VI": ListBox2.List(130, 3) = "ASIAN"
ListBox2.AddItem 132: ListBox2.List(131, 1) = "VOLAPUK": ListBox2.List(131, 2) = "VO": ListBox2.List(131, 3) = "INTERNATIONAL AUX."
ListBox2.AddItem 133: ListBox2.List(132, 1) = "WOLOF": ListBox2.List(132, 2) = "WO": ListBox2.List(132, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 134: ListBox2.List(133, 1) = "XHOSA": ListBox2.List(133, 2) = "XH": ListBox2.List(133, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 135: ListBox2.List(134, 1) = "YIDDISH": ListBox2.List(134, 2) = "YI": ListBox2.List(134, 3) = "GERMANIC [*Changed 1989 from original ISO 639:1988, JI]"
ListBox2.AddItem 136: ListBox2.List(135, 1) = "YORUBA": ListBox2.List(135, 2) = "YO": ListBox2.List(135, 3) = "NEGRO-AFRICAN"
ListBox2.AddItem 137: ListBox2.List(136, 1) = "ZHUANG": ListBox2.List(136, 2) = "ZA": ListBox2.List(136, 3) = "[ ]"
ListBox2.AddItem 138: ListBox2.List(137, 1) = "CHINESE": ListBox2.List(137, 2) = "ZH": ListBox2.List(137, 3) = "ASIAN"
ListBox2.AddItem 139: ListBox2.List(138, 1) = "ZULU": ListBox2.List(138, 2) = "ZU": ListBox2.List(138, 3) = "NEGRO-AFRICAN"

End Sub
Private Sub ISO_639_LANGUAGE_CODES_SORTED_BY_LANGUAGE_GROUP()

On Error Resume Next
ListBox3.AddItem 1: ListBox3.List(0, 1) = "AYMARA": ListBox3.List(0, 2) = "AY": ListBox3.List(0, 3) = "AMERINDIAN"
ListBox3.AddItem 2: ListBox3.List(1, 1) = "GUARANI": ListBox3.List(1, 2) = "GN": ListBox3.List(1, 3) = "AMERINDIAN"
ListBox3.AddItem 3: ListBox3.List(2, 1) = "QUECHUA": ListBox3.List(2, 2) = "QU": ListBox3.List(2, 3) = "AMERINDIAN"
ListBox3.AddItem 4: ListBox3.List(3, 1) = "BHUTANI": ListBox3.List(3, 2) = "DZ": ListBox3.List(3, 3) = "ASIAN"
ListBox3.AddItem 5: ListBox3.List(4, 1) = "BURMESE": ListBox3.List(4, 2) = "MY": ListBox3.List(4, 3) = "ASIAN"
ListBox3.AddItem 6: ListBox3.List(5, 1) = "CAMBODIAN": ListBox3.List(5, 2) = "KM": ListBox3.List(5, 3) = "ASIAN"
ListBox3.AddItem 7: ListBox3.List(6, 1) = "CHINESE": ListBox3.List(6, 2) = "ZH": ListBox3.List(6, 3) = "ASIAN"
ListBox3.AddItem 8: ListBox3.List(7, 1) = "JAPANESE": ListBox3.List(7, 2) = "JA": ListBox3.List(7, 3) = "ASIAN"
ListBox3.AddItem 9: ListBox3.List(8, 1) = "KOREAN": ListBox3.List(8, 2) = "KO": ListBox3.List(8, 3) = "ASIAN"
ListBox3.AddItem 10: ListBox3.List(9, 1) = "LAOTHIAN": ListBox3.List(9, 2) = "LO": ListBox3.List(9, 3) = "ASIAN"
ListBox3.AddItem 11: ListBox3.List(10, 1) = "THAI": ListBox3.List(10, 2) = "TH": ListBox3.List(10, 3) = "ASIAN"
ListBox3.AddItem 12: ListBox3.List(11, 1) = "TIBETAN": ListBox3.List(11, 2) = "BO": ListBox3.List(11, 3) = "ASIAN"
ListBox3.AddItem 13: ListBox3.List(12, 1) = "VIETNAMESE": ListBox3.List(12, 2) = "VI": ListBox3.List(12, 3) = "ASIAN"
ListBox3.AddItem 14: ListBox3.List(13, 1) = "LATVIAN;LETTISH": ListBox3.List(13, 2) = "LV": ListBox3.List(13, 3) = "BALTIC"
ListBox3.AddItem 15: ListBox3.List(14, 1) = "LITHUANIAN": ListBox3.List(14, 2) = "LT": ListBox3.List(14, 3) = "BALTIC"
ListBox3.AddItem 16: ListBox3.List(15, 1) = "BASQUE": ListBox3.List(15, 2) = "EU": ListBox3.List(15, 3) = "BASQUE"
ListBox3.AddItem 17: ListBox3.List(16, 1) = "BRETON": ListBox3.List(16, 2) = "BR": ListBox3.List(16, 3) = "CELTIC"
ListBox3.AddItem 18: ListBox3.List(17, 1) = "IRISH": ListBox3.List(17, 2) = "GA": ListBox3.List(17, 3) = "CELTIC"
ListBox3.AddItem 19: ListBox3.List(18, 1) = "SCOTS GAELIC": ListBox3.List(18, 2) = "GD": ListBox3.List(18, 3) = "CELTIC"
ListBox3.AddItem 20: ListBox3.List(19, 1) = "WELSH": ListBox3.List(19, 2) = "CY": ListBox3.List(19, 3) = "CELTIC"
ListBox3.AddItem 21: ListBox3.List(20, 1) = "KANNADA": ListBox3.List(20, 2) = "KN": ListBox3.List(20, 3) = "DRAVIDIAN"
ListBox3.AddItem 22: ListBox3.List(21, 1) = "MALAYALAM": ListBox3.List(21, 2) = "ML": ListBox3.List(21, 3) = "DRAVIDIAN"
ListBox3.AddItem 23: ListBox3.List(22, 1) = "TAMIL": ListBox3.List(22, 2) = "TA": ListBox3.List(22, 3) = "DRAVIDIAN"
ListBox3.AddItem 24: ListBox3.List(23, 1) = "TELUGU": ListBox3.List(23, 2) = "TE": ListBox3.List(23, 3) = "DRAVIDIAN"
ListBox3.AddItem 25: ListBox3.List(24, 1) = "GREENLANDIC": ListBox3.List(24, 2) = "KL": ListBox3.List(24, 3) = "ESKIMO"
ListBox3.AddItem 26: ListBox3.List(25, 1) = "INUPIAK": ListBox3.List(25, 2) = "IK": ListBox3.List(25, 3) = "ESKIMO"
ListBox3.AddItem 27: ListBox3.List(26, 1) = "ESTONIAN": ListBox3.List(26, 2) = "ET": ListBox3.List(26, 3) = "FINNO-UGRIC"
ListBox3.AddItem 28: ListBox3.List(27, 1) = "FINNISH": ListBox3.List(27, 2) = "FI": ListBox3.List(27, 3) = "FINNO-UGRIC"
ListBox3.AddItem 29: ListBox3.List(28, 1) = "HUNGARIAN": ListBox3.List(28, 2) = "HU": ListBox3.List(28, 3) = "FINNO-UGRIC"
ListBox3.AddItem 30: ListBox3.List(29, 1) = "AFRIKAANS": ListBox3.List(29, 2) = "AF": ListBox3.List(29, 3) = "GERMANIC"
ListBox3.AddItem 31: ListBox3.List(30, 1) = "DANISH": ListBox3.List(30, 2) = "DA": ListBox3.List(30, 3) = "GERMANIC"
ListBox3.AddItem 32: ListBox3.List(31, 1) = "DUTCH": ListBox3.List(31, 2) = "NL": ListBox3.List(31, 3) = "GERMANIC"
ListBox3.AddItem 33: ListBox3.List(32, 1) = "ENGLISH": ListBox3.List(32, 2) = "EN": ListBox3.List(32, 3) = "GERMANIC"
ListBox3.AddItem 34: ListBox3.List(33, 1) = "FAROESE": ListBox3.List(33, 2) = "FO": ListBox3.List(33, 3) = "GERMANIC"
ListBox3.AddItem 35: ListBox3.List(34, 1) = "FRISIAN": ListBox3.List(34, 2) = "FY": ListBox3.List(34, 3) = "GERMANIC"
ListBox3.AddItem 36: ListBox3.List(35, 1) = "GERMAN": ListBox3.List(35, 2) = "DE": ListBox3.List(35, 3) = "GERMANIC"
ListBox3.AddItem 37: ListBox3.List(36, 1) = "ICELANDIC": ListBox3.List(36, 2) = "IS": ListBox3.List(36, 3) = "GERMANIC"
ListBox3.AddItem 38: ListBox3.List(37, 1) = "NORWEGIAN": ListBox3.List(37, 2) = "NO": ListBox3.List(37, 3) = "GERMANIC"
ListBox3.AddItem 39: ListBox3.List(38, 1) = "SWEDISH": ListBox3.List(38, 2) = "SV": ListBox3.List(38, 3) = "GERMANIC"
ListBox3.AddItem 40: ListBox3.List(39, 1) = "YIDDISH": ListBox3.List(39, 2) = "YI": ListBox3.List(39, 3) = "GERMANIC [*Changed 1989 from original ISO 639:1988, JI]"
ListBox3.AddItem 41: ListBox3.List(40, 1) = "AFAN (OROMO)": ListBox3.List(40, 2) = "OM": ListBox3.List(40, 3) = "HAMITIC"
ListBox3.AddItem 42: ListBox3.List(41, 1) = "AFAR": ListBox3.List(41, 2) = "AA": ListBox3.List(41, 3) = "HAMITIC"
ListBox3.AddItem 43: ListBox3.List(42, 1) = "SOMALI": ListBox3.List(42, 2) = "SO": ListBox3.List(42, 3) = "HAMITIC"
ListBox3.AddItem 44: ListBox3.List(43, 1) = "ABKHAZIAN": ListBox3.List(43, 2) = "AB": ListBox3.List(43, 3) = "IBERO-CAUCASIAN"
ListBox3.AddItem 45: ListBox3.List(44, 1) = "GEORGIAN": ListBox3.List(44, 2) = "KA": ListBox3.List(44, 3) = "IBERO-CAUCASIAN"
ListBox3.AddItem 46: ListBox3.List(45, 1) = "ASSAMESE": ListBox3.List(45, 2) = "AS": ListBox3.List(45, 3) = "INDIAN"
ListBox3.AddItem 47: ListBox3.List(46, 1) = "BENGALI;BANGLA": ListBox3.List(46, 2) = "BN": ListBox3.List(46, 3) = "INDIAN"
ListBox3.AddItem 48: ListBox3.List(47, 1) = "BIHARI": ListBox3.List(47, 2) = "BH": ListBox3.List(47, 3) = "INDIAN"
ListBox3.AddItem 49: ListBox3.List(48, 1) = "GUJARATI": ListBox3.List(48, 2) = "GU": ListBox3.List(48, 3) = "INDIAN"
ListBox3.AddItem 50: ListBox3.List(49, 1) = "HINDI": ListBox3.List(49, 2) = "HI": ListBox3.List(49, 3) = "INDIAN"
ListBox3.AddItem 51: ListBox3.List(50, 1) = "KASHMIRI": ListBox3.List(50, 2) = "KS": ListBox3.List(50, 3) = "INDIAN"
ListBox3.AddItem 52: ListBox3.List(51, 1) = "MARATHI": ListBox3.List(51, 2) = "MR": ListBox3.List(51, 3) = "INDIAN"
ListBox3.AddItem 53: ListBox3.List(52, 1) = "NEPALI": ListBox3.List(52, 2) = "NE": ListBox3.List(52, 3) = "INDIAN"
ListBox3.AddItem 54: ListBox3.List(53, 1) = "ORIYA": ListBox3.List(53, 2) = "OR": ListBox3.List(53, 3) = "INDIAN"
ListBox3.AddItem 55: ListBox3.List(54, 1) = "PUNJABI": ListBox3.List(54, 2) = "PA": ListBox3.List(54, 3) = "INDIAN"
ListBox3.AddItem 56: ListBox3.List(55, 1) = "SANSKRIT": ListBox3.List(55, 2) = "SA": ListBox3.List(55, 3) = "INDIAN"
ListBox3.AddItem 57: ListBox3.List(56, 1) = "SINDHI": ListBox3.List(56, 2) = "SD": ListBox3.List(56, 3) = "INDIAN"
ListBox3.AddItem 58: ListBox3.List(57, 1) = "SINGHALESE": ListBox3.List(57, 2) = "SI": ListBox3.List(57, 3) = "INDIAN"
ListBox3.AddItem 59: ListBox3.List(58, 1) = "URDU": ListBox3.List(58, 2) = "UR": ListBox3.List(58, 3) = "INDIAN"
ListBox3.AddItem 60: ListBox3.List(59, 1) = "ALBANIAN": ListBox3.List(59, 2) = "SQ": ListBox3.List(59, 3) = "INDO-EUROPEAN (OTHER)"
ListBox3.AddItem 61: ListBox3.List(60, 1) = "ARMENIAN": ListBox3.List(60, 2) = "HY": ListBox3.List(60, 3) = "INDO-EUROPEAN (OTHER)"
ListBox3.AddItem 62: ListBox3.List(61, 1) = "ESPERANTO": ListBox3.List(61, 2) = "EO": ListBox3.List(61, 3) = "INTERNATIONAL AUX."
ListBox3.AddItem 63: ListBox3.List(62, 1) = "INTERLINGUA": ListBox3.List(62, 2) = "IA": ListBox3.List(62, 3) = "INTERNATIONAL AUX."
ListBox3.AddItem 64: ListBox3.List(63, 1) = "INTERLINGUE": ListBox3.List(63, 2) = "IE": ListBox3.List(63, 3) = "INTERNATIONAL AUX."
ListBox3.AddItem 65: ListBox3.List(64, 1) = "VOLAPUK": ListBox3.List(64, 2) = "VO": ListBox3.List(64, 3) = "INTERNATIONAL AUX."
ListBox3.AddItem 66: ListBox3.List(65, 1) = "KURDISH": ListBox3.List(65, 2) = "KU": ListBox3.List(65, 3) = "IRANIAN"
ListBox3.AddItem 67: ListBox3.List(66, 1) = "PASHTO;PUSHTO": ListBox3.List(66, 2) = "PS": ListBox3.List(66, 3) = "IRANIAN"
ListBox3.AddItem 68: ListBox3.List(67, 1) = "PERSIAN (farsi)": ListBox3.List(67, 2) = "FA": ListBox3.List(67, 3) = "IRANIAN"
ListBox3.AddItem 69: ListBox3.List(68, 1) = "TAJIK": ListBox3.List(68, 2) = "TG": ListBox3.List(68, 3) = "IRANIAN"
ListBox3.AddItem 70: ListBox3.List(69, 1) = "GREEK": ListBox3.List(69, 2) = "EL": ListBox3.List(69, 3) = "LATIN/GREEK"
ListBox3.AddItem 71: ListBox3.List(70, 1) = "LATIN": ListBox3.List(70, 2) = "LA": ListBox3.List(70, 3) = "LATIN/GREEK"
ListBox3.AddItem 72: ListBox3.List(71, 1) = "HAUSA": ListBox3.List(71, 2) = "HA": ListBox3.List(71, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 73: ListBox3.List(72, 1) = "KINYARWANDA": ListBox3.List(72, 2) = "RW": ListBox3.List(72, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 74: ListBox3.List(73, 1) = "KURUNDI": ListBox3.List(73, 2) = "RN": ListBox3.List(73, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 75: ListBox3.List(74, 1) = "LINGALA": ListBox3.List(74, 2) = "LN": ListBox3.List(74, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 76: ListBox3.List(75, 1) = "SANGHO": ListBox3.List(75, 2) = "SG": ListBox3.List(75, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 77: ListBox3.List(76, 1) = "SESOTHO": ListBox3.List(76, 2) = "ST": ListBox3.List(76, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 78: ListBox3.List(77, 1) = "SETSWANA": ListBox3.List(77, 2) = "TN": ListBox3.List(77, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 79: ListBox3.List(78, 1) = "SHONA": ListBox3.List(78, 2) = "SN": ListBox3.List(78, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 80: ListBox3.List(79, 1) = "SISWATI": ListBox3.List(79, 2) = "SS": ListBox3.List(79, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 81: ListBox3.List(80, 1) = "SWAHILI": ListBox3.List(80, 2) = "SW": ListBox3.List(80, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 82: ListBox3.List(81, 1) = "TSONGA": ListBox3.List(81, 2) = "TS": ListBox3.List(81, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 83: ListBox3.List(82, 1) = "TWI": ListBox3.List(82, 2) = "TW": ListBox3.List(82, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 84: ListBox3.List(83, 1) = "WOLOF": ListBox3.List(83, 2) = "WO": ListBox3.List(83, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 85: ListBox3.List(84, 1) = "XHOSA": ListBox3.List(84, 2) = "XH": ListBox3.List(84, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 86: ListBox3.List(85, 1) = "YORUBA": ListBox3.List(85, 2) = "YO": ListBox3.List(85, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 87: ListBox3.List(86, 1) = "ZULU": ListBox3.List(86, 2) = "ZU": ListBox3.List(86, 3) = "NEGRO-AFRICAN"
ListBox3.AddItem 88: ListBox3.List(87, 1) = "FIJI": ListBox3.List(87, 2) = "FJ": ListBox3.List(87, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 89: ListBox3.List(88, 1) = "INDONESIAN": ListBox3.List(88, 2) = "ID": ListBox3.List(88, 3) = "OCEANIC/INDONESIAN [*Changed 1989 from original ISO 639:1988, IN]"
ListBox3.AddItem 90: ListBox3.List(89, 1) = "JAVANESE": ListBox3.List(89, 2) = "JV": ListBox3.List(89, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 91: ListBox3.List(90, 1) = "MALAGASY": ListBox3.List(90, 2) = "MG": ListBox3.List(90, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 92: ListBox3.List(91, 1) = "MALAY": ListBox3.List(91, 2) = "MS": ListBox3.List(91, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 93: ListBox3.List(92, 1) = "MAORI": ListBox3.List(92, 2) = "MI": ListBox3.List(92, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 94: ListBox3.List(93, 1) = "SAMOAN": ListBox3.List(93, 2) = "SM": ListBox3.List(93, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 95: ListBox3.List(94, 1) = "SUNDANESE": ListBox3.List(94, 2) = "SU": ListBox3.List(94, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 96: ListBox3.List(95, 1) = "TAGALOG": ListBox3.List(95, 2) = "TL": ListBox3.List(95, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 97: ListBox3.List(96, 1) = "TONGA": ListBox3.List(96, 2) = "TO": ListBox3.List(96, 3) = "OCEANIC/INDONESIAN"
ListBox3.AddItem 98: ListBox3.List(97, 1) = "CATALAN": ListBox3.List(97, 2) = "CA": ListBox3.List(97, 3) = "ROMANCE"
ListBox3.AddItem 99: ListBox3.List(98, 1) = "CORSICAN": ListBox3.List(98, 2) = "CO": ListBox3.List(98, 3) = "ROMANCE"
ListBox3.AddItem 100: ListBox3.List(99, 1) = "FRENCH": ListBox3.List(99, 2) = "FR": ListBox3.List(99, 3) = "ROMANCE"
ListBox3.AddItem 101: ListBox3.List(100, 1) = "GALICIAN": ListBox3.List(100, 2) = "GL": ListBox3.List(100, 3) = "ROMANCE"
ListBox3.AddItem 102: ListBox3.List(101, 1) = "ITALIAN": ListBox3.List(101, 2) = "IT": ListBox3.List(101, 3) = "ROMANCE"
ListBox3.AddItem 103: ListBox3.List(102, 1) = "MOLDAVIAN": ListBox3.List(102, 2) = "MO": ListBox3.List(102, 3) = "ROMANCE"
ListBox3.AddItem 104: ListBox3.List(103, 1) = "OCCITAN": ListBox3.List(103, 2) = "OC": ListBox3.List(103, 3) = "ROMANCE"
ListBox3.AddItem 105: ListBox3.List(104, 1) = "PORTUGUESE": ListBox3.List(104, 2) = "PT": ListBox3.List(104, 3) = "ROMANCE"
ListBox3.AddItem 106: ListBox3.List(105, 1) = "RHAETO-ROMANCE": ListBox3.List(105, 2) = "RM": ListBox3.List(105, 3) = "ROMANCE"
ListBox3.AddItem 107: ListBox3.List(106, 1) = "ROMANIAN": ListBox3.List(106, 2) = "RO": ListBox3.List(106, 3) = "ROMANCE"
ListBox3.AddItem 108: ListBox3.List(107, 1) = "SPANISH": ListBox3.List(107, 2) = "ES": ListBox3.List(107, 3) = "ROMANCE"
ListBox3.AddItem 109: ListBox3.List(108, 1) = "AMHARIC": ListBox3.List(108, 2) = "AM": ListBox3.List(108, 3) = "SEMITIC"
ListBox3.AddItem 110: ListBox3.List(109, 1) = "ARABIC": ListBox3.List(109, 2) = "AR": ListBox3.List(109, 3) = "SEMITIC"
ListBox3.AddItem 111: ListBox3.List(110, 1) = "HEBREW": ListBox3.List(110, 2) = "HE": ListBox3.List(110, 3) = "SEMITIC [*Changed 1989 from original ISO 639:1988, IW]"
ListBox3.AddItem 112: ListBox3.List(111, 1) = "MALTESE": ListBox3.List(111, 2) = "MT": ListBox3.List(111, 3) = "SEMITIC"
ListBox3.AddItem 113: ListBox3.List(112, 1) = "TIGRINYA": ListBox3.List(112, 2) = "TI": ListBox3.List(112, 3) = "SEMITIC"
ListBox3.AddItem 114: ListBox3.List(113, 1) = "BULGARIAN": ListBox3.List(113, 2) = "BG": ListBox3.List(113, 3) = "SLAVIC"
ListBox3.AddItem 115: ListBox3.List(114, 1) = "BYELORUSSIAN": ListBox3.List(114, 2) = "BE": ListBox3.List(114, 3) = "SLAVIC"
ListBox3.AddItem 116: ListBox3.List(115, 1) = "CROATIAN": ListBox3.List(115, 2) = "HR": ListBox3.List(115, 3) = "SLAVIC"
ListBox3.AddItem 117: ListBox3.List(116, 1) = "CZECH": ListBox3.List(116, 2) = "CS": ListBox3.List(116, 3) = "SLAVIC"
ListBox3.AddItem 118: ListBox3.List(117, 1) = "MACEDONIAN": ListBox3.List(117, 2) = "MK": ListBox3.List(117, 3) = "SLAVIC"
ListBox3.AddItem 119: ListBox3.List(118, 1) = "POLISH": ListBox3.List(118, 2) = "PL": ListBox3.List(118, 3) = "SLAVIC"
ListBox3.AddItem 120: ListBox3.List(119, 1) = "RUSSIAN": ListBox3.List(119, 2) = "RU": ListBox3.List(119, 3) = "SLAVIC"
ListBox3.AddItem 121: ListBox3.List(120, 1) = "SERBIAN": ListBox3.List(120, 2) = "SR": ListBox3.List(120, 3) = "SLAVIC"
ListBox3.AddItem 122: ListBox3.List(121, 1) = "SERBO-CROATIAN": ListBox3.List(121, 2) = "SH": ListBox3.List(121, 3) = "SLAVIC"
ListBox3.AddItem 123: ListBox3.List(122, 1) = "SLOVAK": ListBox3.List(122, 2) = "SK": ListBox3.List(122, 3) = "SLAVIC"
ListBox3.AddItem 124: ListBox3.List(123, 1) = "SLOVENIAN": ListBox3.List(123, 2) = "SL": ListBox3.List(123, 3) = "SLAVIC"
ListBox3.AddItem 125: ListBox3.List(124, 1) = "UKRAINIAN": ListBox3.List(124, 2) = "UK": ListBox3.List(124, 3) = "SLAVIC"
ListBox3.AddItem 126: ListBox3.List(125, 1) = "AZERBAIJANI": ListBox3.List(125, 2) = "AZ": ListBox3.List(125, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 127: ListBox3.List(126, 1) = "BASHKIR": ListBox3.List(126, 2) = "BA": ListBox3.List(126, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 128: ListBox3.List(127, 1) = "KAZAKH": ListBox3.List(127, 2) = "KK": ListBox3.List(127, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 129: ListBox3.List(128, 1) = "KIRGHIZ": ListBox3.List(128, 2) = "KY": ListBox3.List(128, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 130: ListBox3.List(129, 1) = "TATAR": ListBox3.List(129, 2) = "TT": ListBox3.List(129, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 131: ListBox3.List(130, 1) = "TURKISH": ListBox3.List(130, 2) = "TR": ListBox3.List(130, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 132: ListBox3.List(131, 1) = "TURKMEN": ListBox3.List(131, 2) = "TK": ListBox3.List(131, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 133: ListBox3.List(132, 1) = "UZBEK": ListBox3.List(132, 2) = "UZ": ListBox3.List(132, 3) = "TURKIC/ALTAIC"
ListBox3.AddItem 134: ListBox3.List(133, 1) = "BISLAMA": ListBox3.List(133, 2) = "BI": ListBox3.List(133, 3) = "[not given]"
ListBox3.AddItem 135: ListBox3.List(134, 1) = "MONGOLIAN": ListBox3.List(134, 2) = "MN": ListBox3.List(134, 3) = "[not given]"
ListBox3.AddItem 136: ListBox3.List(135, 1) = "NAURU": ListBox3.List(135, 2) = "NA": ListBox3.List(135, 3) = "[not given]"

End Sub
Private Sub Windows_Locale_Codes_Sorted_by_Locale_ID_LCID_Hexadecimal()

On Error Resume Next
ListBox4.AddItem 1: ListBox4.List(0, 1) = "None": ListBox4.List(0, 2) = 0: ListBox4.List(0, 3) = "0": ListBox4.List(0, 4) = "": ListBox4.List(0, 5) = ""
ListBox4.AddItem 2: ListBox4.List(1, 1) = "French (Cameroon)": ListBox4.List(1, 2) = 11276: ListBox4.List(1, 3) = "02c0c": ListBox4.List(1, 4) = "": ListBox4.List(1, 5) = ""
ListBox4.AddItem 3: ListBox4.List(2, 1) = "Arabic (Saudi Arabia)": ListBox4.List(2, 2) = 1025: ListBox4.List(2, 3) = "0401": ListBox4.List(2, 4) = "1256": ListBox4.List(2, 5) = "SAU"
ListBox4.AddItem 4: ListBox4.List(3, 1) = "Bulgarian": ListBox4.List(3, 2) = 1026: ListBox4.List(3, 3) = "0402": ListBox4.List(3, 4) = "1251": ListBox4.List(3, 5) = "BGR"
ListBox4.AddItem 5: ListBox4.List(4, 1) = "Catalan": ListBox4.List(4, 2) = 1027: ListBox4.List(4, 3) = "0403": ListBox4.List(4, 4) = "1252": ListBox4.List(4, 5) = "ESP"
ListBox4.AddItem 6: ListBox4.List(5, 1) = "Chinese (Taiwan)": ListBox4.List(5, 2) = 1028: ListBox4.List(5, 3) = "0404": ListBox4.List(5, 4) = "950": ListBox4.List(5, 5) = "TWN"
ListBox4.AddItem 7: ListBox4.List(6, 1) = "Czech": ListBox4.List(6, 2) = 1029: ListBox4.List(6, 3) = "0405": ListBox4.List(6, 4) = "1250": ListBox4.List(6, 5) = "CZE"
ListBox4.AddItem 8: ListBox4.List(7, 1) = "Danish": ListBox4.List(7, 2) = 1030: ListBox4.List(7, 3) = "0406": ListBox4.List(7, 4) = "1252": ListBox4.List(7, 5) = "DNK"
ListBox4.AddItem 9: ListBox4.List(8, 1) = "German (Germany)": ListBox4.List(8, 2) = 1031: ListBox4.List(8, 3) = "0407": ListBox4.List(8, 4) = "1252": ListBox4.List(8, 5) = "DEU"
ListBox4.AddItem 10: ListBox4.List(9, 1) = "Greek": ListBox4.List(9, 2) = 1032: ListBox4.List(9, 3) = "0408": ListBox4.List(9, 4) = "1253": ListBox4.List(9, 5) = "GRC"
ListBox4.AddItem 11: ListBox4.List(10, 1) = "English (United States)": ListBox4.List(10, 2) = 1033: ListBox4.List(10, 3) = "0409": ListBox4.List(10, 4) = "1252": ListBox4.List(10, 5) = "USA"
ListBox4.AddItem 12: ListBox4.List(11, 1) = "Spanish (Traditional Sort)": ListBox4.List(11, 2) = 1034: ListBox4.List(11, 3) = "040a": ListBox4.List(11, 4) = "1252": ListBox4.List(11, 5) = "ESP"
ListBox4.AddItem 13: ListBox4.List(12, 1) = "Finnish": ListBox4.List(12, 2) = 1035: ListBox4.List(12, 3) = "040b": ListBox4.List(12, 4) = "1252": ListBox4.List(12, 5) = "FIN"
ListBox4.AddItem 14: ListBox4.List(13, 1) = "French (France)": ListBox4.List(13, 2) = 1036: ListBox4.List(13, 3) = "040c": ListBox4.List(13, 4) = "1252": ListBox4.List(13, 5) = "FRA"
ListBox4.AddItem 15: ListBox4.List(14, 1) = "Hebrew": ListBox4.List(14, 2) = 1037: ListBox4.List(14, 3) = "040d": ListBox4.List(14, 4) = "1255": ListBox4.List(14, 5) = "ISR"
ListBox4.AddItem 16: ListBox4.List(15, 1) = "Hungarian": ListBox4.List(15, 2) = 1038: ListBox4.List(15, 3) = "040e": ListBox4.List(15, 4) = "1250": ListBox4.List(15, 5) = "HUN"
ListBox4.AddItem 17: ListBox4.List(16, 1) = "Icelandic": ListBox4.List(16, 2) = 1039: ListBox4.List(16, 3) = "040f": ListBox4.List(16, 4) = "1252": ListBox4.List(16, 5) = "ISL"
ListBox4.AddItem 18: ListBox4.List(17, 1) = "Italian (Italy)": ListBox4.List(17, 2) = 1040: ListBox4.List(17, 3) = "0410": ListBox4.List(17, 4) = "1252": ListBox4.List(17, 5) = "ITA"
ListBox4.AddItem 19: ListBox4.List(18, 1) = "Japanese": ListBox4.List(18, 2) = 1041: ListBox4.List(18, 3) = "0411": ListBox4.List(18, 4) = "932": ListBox4.List(18, 5) = "JPN"
ListBox4.AddItem 20: ListBox4.List(19, 1) = "Korean": ListBox4.List(19, 2) = 1042: ListBox4.List(19, 3) = "0412": ListBox4.List(19, 4) = "949": ListBox4.List(19, 5) = "KOR"
ListBox4.AddItem 21: ListBox4.List(20, 1) = "Dutch (Netherlands)": ListBox4.List(20, 2) = 1043: ListBox4.List(20, 3) = "0413": ListBox4.List(20, 4) = "1252": ListBox4.List(20, 5) = "NLD"
ListBox4.AddItem 22: ListBox4.List(21, 1) = "Norwegian (Bokmal)": ListBox4.List(21, 2) = 1044: ListBox4.List(21, 3) = "0414": ListBox4.List(21, 4) = "1252": ListBox4.List(21, 5) = "NOR"
ListBox4.AddItem 23: ListBox4.List(22, 1) = "Polish": ListBox4.List(22, 2) = 1045: ListBox4.List(22, 3) = "0415": ListBox4.List(22, 4) = "1250": ListBox4.List(22, 5) = "POL"
ListBox4.AddItem 24: ListBox4.List(23, 1) = "Portuguese (Brazil)": ListBox4.List(23, 2) = 1046: ListBox4.List(23, 3) = "0416": ListBox4.List(23, 4) = "1252": ListBox4.List(23, 5) = "BRA"
ListBox4.AddItem 25: ListBox4.List(24, 1) = "Rhaeto-Romanic": ListBox4.List(24, 2) = 1047: ListBox4.List(24, 3) = "0417": ListBox4.List(24, 4) = "": ListBox4.List(24, 5) = ""
ListBox4.AddItem 26: ListBox4.List(25, 1) = "Romanian": ListBox4.List(25, 2) = 1048: ListBox4.List(25, 3) = "0418": ListBox4.List(25, 4) = "1250": ListBox4.List(25, 5) = "ROM"
ListBox4.AddItem 27: ListBox4.List(26, 1) = "Russian": ListBox4.List(26, 2) = 1049: ListBox4.List(26, 3) = "0419": ListBox4.List(26, 4) = "1251": ListBox4.List(26, 5) = "RUS"
ListBox4.AddItem 28: ListBox4.List(27, 1) = "Croatian": ListBox4.List(27, 2) = 1050: ListBox4.List(27, 3) = "041a": ListBox4.List(27, 4) = "1250": ListBox4.List(27, 5) = "HRV"
ListBox4.AddItem 29: ListBox4.List(28, 1) = "Slovak": ListBox4.List(28, 2) = 1051: ListBox4.List(28, 3) = "041b": ListBox4.List(28, 4) = "1250": ListBox4.List(28, 5) = "SVK"
ListBox4.AddItem 30: ListBox4.List(29, 1) = "Albanian": ListBox4.List(29, 2) = 1052: ListBox4.List(29, 3) = "041c": ListBox4.List(29, 4) = "1250": ListBox4.List(29, 5) = "ALB"
ListBox4.AddItem 31: ListBox4.List(30, 1) = "Swedish": ListBox4.List(30, 2) = 1053: ListBox4.List(30, 3) = "041d": ListBox4.List(30, 4) = "1252": ListBox4.List(30, 5) = "SWE"
ListBox4.AddItem 32: ListBox4.List(31, 1) = "Thai": ListBox4.List(31, 2) = 1054: ListBox4.List(31, 3) = "041e": ListBox4.List(31, 4) = "874": ListBox4.List(31, 5) = "THA"
ListBox4.AddItem 33: ListBox4.List(32, 1) = "Turkish": ListBox4.List(32, 2) = 1055: ListBox4.List(32, 3) = "041f": ListBox4.List(32, 4) = "1254": ListBox4.List(32, 5) = "TUR"
ListBox4.AddItem 34: ListBox4.List(33, 1) = "Urdu": ListBox4.List(33, 2) = 1056: ListBox4.List(33, 3) = "0420": ListBox4.List(33, 4) = "1256": ListBox4.List(33, 5) = "PAK"
ListBox4.AddItem 35: ListBox4.List(34, 1) = "Indonesian": ListBox4.List(34, 2) = 1057: ListBox4.List(34, 3) = "0421": ListBox4.List(34, 4) = "1252": ListBox4.List(34, 5) = "IDN"
ListBox4.AddItem 36: ListBox4.List(35, 1) = "Ukrainian": ListBox4.List(35, 2) = 1058: ListBox4.List(35, 3) = "0422": ListBox4.List(35, 4) = "1251": ListBox4.List(35, 5) = "UKR"
ListBox4.AddItem 37: ListBox4.List(36, 1) = "Belarusian": ListBox4.List(36, 2) = 1059: ListBox4.List(36, 3) = "0423": ListBox4.List(36, 4) = "1251": ListBox4.List(36, 5) = "BLR"
ListBox4.AddItem 38: ListBox4.List(37, 1) = "Slovenian": ListBox4.List(37, 2) = 1060: ListBox4.List(37, 3) = "0424": ListBox4.List(37, 4) = "1250": ListBox4.List(37, 5) = "SVN"
ListBox4.AddItem 39: ListBox4.List(38, 1) = "Estonian": ListBox4.List(38, 2) = 1061: ListBox4.List(38, 3) = "0425": ListBox4.List(38, 4) = "1257": ListBox4.List(38, 5) = "EST"
ListBox4.AddItem 40: ListBox4.List(39, 1) = "Latvian": ListBox4.List(39, 2) = 1062: ListBox4.List(39, 3) = "0426": ListBox4.List(39, 4) = "1257": ListBox4.List(39, 5) = "LVA"
ListBox4.AddItem 41: ListBox4.List(40, 1) = "Lithuanian": ListBox4.List(40, 2) = 1063: ListBox4.List(40, 3) = "0427": ListBox4.List(40, 4) = "1257": ListBox4.List(40, 5) = "LTU"
ListBox4.AddItem 42: ListBox4.List(41, 1) = "Tajik": ListBox4.List(41, 2) = 1064: ListBox4.List(41, 3) = "0428": ListBox4.List(41, 4) = "": ListBox4.List(41, 5) = ""
ListBox4.AddItem 43: ListBox4.List(42, 1) = "Farsi": ListBox4.List(42, 2) = 1065: ListBox4.List(42, 3) = "0429": ListBox4.List(42, 4) = "1256": ListBox4.List(42, 5) = "IRN"
ListBox4.AddItem 44: ListBox4.List(43, 1) = "Vietnamese": ListBox4.List(43, 2) = 1066: ListBox4.List(43, 3) = "042a": ListBox4.List(43, 4) = "1258": ListBox4.List(43, 5) = "VNM"
ListBox4.AddItem 45: ListBox4.List(44, 1) = "Sorbian": ListBox4.List(44, 2) = 1070: ListBox4.List(44, 3) = "042a": ListBox4.List(44, 4) = "": ListBox4.List(44, 5) = ""
ListBox4.AddItem 46: ListBox4.List(45, 1) = "Armenian": ListBox4.List(45, 2) = 1067: ListBox4.List(45, 3) = "042b": ListBox4.List(45, 4) = "0": ListBox4.List(45, 5) = "ARM"
ListBox4.AddItem 47: ListBox4.List(46, 1) = "Azeri (Latin)": ListBox4.List(46, 2) = 1068: ListBox4.List(46, 3) = "042c": ListBox4.List(46, 4) = "1254": ListBox4.List(46, 5) = "AZE"
ListBox4.AddItem 48: ListBox4.List(47, 1) = "Basque": ListBox4.List(47, 2) = 1069: ListBox4.List(47, 3) = "042d": ListBox4.List(47, 4) = "1252": ListBox4.List(47, 5) = "ESP"
ListBox4.AddItem 49: ListBox4.List(48, 1) = "FYRO Macedonian": ListBox4.List(48, 2) = 1071: ListBox4.List(48, 3) = "042f": ListBox4.List(48, 4) = "1251": ListBox4.List(48, 5) = "MKD"
ListBox4.AddItem 50: ListBox4.List(49, 1) = "Sesotho": ListBox4.List(49, 2) = 1072: ListBox4.List(49, 3) = "0430": ListBox4.List(49, 4) = "": ListBox4.List(49, 5) = ""
ListBox4.AddItem 51: ListBox4.List(50, 1) = "Sutu": ListBox4.List(50, 2) = 1072: ListBox4.List(50, 3) = "0430": ListBox4.List(50, 4) = "": ListBox4.List(50, 5) = ""
ListBox4.AddItem 52: ListBox4.List(51, 1) = "Tsonga": ListBox4.List(51, 2) = 1073: ListBox4.List(51, 3) = "0431": ListBox4.List(51, 4) = "": ListBox4.List(51, 5) = ""
ListBox4.AddItem 53: ListBox4.List(52, 1) = "Tswana": ListBox4.List(52, 2) = 1074: ListBox4.List(52, 3) = "0432": ListBox4.List(52, 4) = "": ListBox4.List(52, 5) = ""
ListBox4.AddItem 54: ListBox4.List(53, 1) = "Venda": ListBox4.List(53, 2) = 1075: ListBox4.List(53, 3) = "0433": ListBox4.List(53, 4) = "": ListBox4.List(53, 5) = ""
ListBox4.AddItem 55: ListBox4.List(54, 1) = "Xhosa": ListBox4.List(54, 2) = 1076: ListBox4.List(54, 3) = "0434": ListBox4.List(54, 4) = "": ListBox4.List(54, 5) = ""
ListBox4.AddItem 56: ListBox4.List(55, 1) = "Zulu": ListBox4.List(55, 2) = 1077: ListBox4.List(55, 3) = "0435": ListBox4.List(55, 4) = "": ListBox4.List(55, 5) = ""
ListBox4.AddItem 57: ListBox4.List(56, 1) = "Afrikaans": ListBox4.List(56, 2) = 1078: ListBox4.List(56, 3) = "0436": ListBox4.List(56, 4) = "1252": ListBox4.List(56, 5) = "ZAF"
ListBox4.AddItem 58: ListBox4.List(57, 1) = "Georgian": ListBox4.List(57, 2) = 1079: ListBox4.List(57, 3) = "0437": ListBox4.List(57, 4) = "0": ListBox4.List(57, 5) = "GEO"
ListBox4.AddItem 59: ListBox4.List(58, 1) = "Faroese": ListBox4.List(58, 2) = 1080: ListBox4.List(58, 3) = "0438": ListBox4.List(58, 4) = "1252": ListBox4.List(58, 5) = "FRO"
ListBox4.AddItem 60: ListBox4.List(59, 1) = "Hindi": ListBox4.List(59, 2) = 1081: ListBox4.List(59, 3) = "0439": ListBox4.List(59, 4) = "0": ListBox4.List(59, 5) = "IND"
ListBox4.AddItem 61: ListBox4.List(60, 1) = "Maltese": ListBox4.List(60, 2) = 1082: ListBox4.List(60, 3) = "043a": ListBox4.List(60, 4) = "": ListBox4.List(60, 5) = ""
ListBox4.AddItem 62: ListBox4.List(61, 1) = "Sami Lappish": ListBox4.List(61, 2) = 1083: ListBox4.List(61, 3) = "043b": ListBox4.List(61, 4) = "": ListBox4.List(61, 5) = ""
ListBox4.AddItem 63: ListBox4.List(62, 1) = "Gaelic Scotland": ListBox4.List(62, 2) = 1084: ListBox4.List(62, 3) = "043c": ListBox4.List(62, 4) = "": ListBox4.List(62, 5) = ""
ListBox4.AddItem 64: ListBox4.List(63, 1) = "Yiddish": ListBox4.List(63, 2) = 1085: ListBox4.List(63, 3) = "043d": ListBox4.List(63, 4) = "": ListBox4.List(63, 5) = ""
ListBox4.AddItem 65: ListBox4.List(64, 1) = "Malay (Malaysia)": ListBox4.List(64, 2) = 1086: ListBox4.List(64, 3) = "043e": ListBox4.List(64, 4) = "1252": ListBox4.List(64, 5) = "MYS"
ListBox4.AddItem 66: ListBox4.List(65, 1) = "Kazakh": ListBox4.List(65, 2) = 1087: ListBox4.List(65, 3) = "043f": ListBox4.List(65, 4) = "1251": ListBox4.List(65, 5) = "KAZ"
ListBox4.AddItem 67: ListBox4.List(66, 1) = "Kyrgyz (Cyrillic)": ListBox4.List(66, 2) = 1088: ListBox4.List(66, 3) = "0440": ListBox4.List(66, 4) = "1251": ListBox4.List(66, 5) = "KGZ"
ListBox4.AddItem 68: ListBox4.List(67, 1) = "Swahili": ListBox4.List(67, 2) = 1089: ListBox4.List(67, 3) = "0441": ListBox4.List(67, 4) = "1252": ListBox4.List(67, 5) = "KEN"
ListBox4.AddItem 69: ListBox4.List(68, 1) = "Turkmen": ListBox4.List(68, 2) = 1090: ListBox4.List(68, 3) = "0442": ListBox4.List(68, 4) = "0": ListBox4.List(68, 5) = "0"
ListBox4.AddItem 70: ListBox4.List(69, 1) = "Uzbek (Latin)": ListBox4.List(69, 2) = 1091: ListBox4.List(69, 3) = "0443": ListBox4.List(69, 4) = "1254": ListBox4.List(69, 5) = "UZB"
ListBox4.AddItem 71: ListBox4.List(70, 1) = "Tatar": ListBox4.List(70, 2) = 1092: ListBox4.List(70, 3) = "0444": ListBox4.List(70, 4) = "1251": ListBox4.List(70, 5) = "RUS"
ListBox4.AddItem 72: ListBox4.List(71, 1) = "Bengali (India)": ListBox4.List(71, 2) = 1093: ListBox4.List(71, 3) = "0445": ListBox4.List(71, 4) = "": ListBox4.List(71, 5) = ""
ListBox4.AddItem 73: ListBox4.List(72, 1) = "Punjabi": ListBox4.List(72, 2) = 1094: ListBox4.List(72, 3) = "0446": ListBox4.List(72, 4) = "0": ListBox4.List(72, 5) = "IND"
ListBox4.AddItem 74: ListBox4.List(73, 1) = "Gujarati": ListBox4.List(73, 2) = 1095: ListBox4.List(73, 3) = "0447": ListBox4.List(73, 4) = "0": ListBox4.List(73, 5) = "IND"
ListBox4.AddItem 75: ListBox4.List(74, 1) = "Oriya": ListBox4.List(74, 2) = 1096: ListBox4.List(74, 3) = "0448": ListBox4.List(74, 4) = "": ListBox4.List(74, 5) = ""
ListBox4.AddItem 76: ListBox4.List(75, 1) = "Tamil": ListBox4.List(75, 2) = 1097: ListBox4.List(75, 3) = "0449": ListBox4.List(75, 4) = "0": ListBox4.List(75, 5) = "IND"
ListBox4.AddItem 77: ListBox4.List(76, 1) = "Telugu": ListBox4.List(76, 2) = 1098: ListBox4.List(76, 3) = "044a": ListBox4.List(76, 4) = "0": ListBox4.List(76, 5) = "IND"
ListBox4.AddItem 78: ListBox4.List(77, 1) = "Kannada": ListBox4.List(77, 2) = 1099: ListBox4.List(77, 3) = "044b": ListBox4.List(77, 4) = "0": ListBox4.List(77, 5) = "IND"
ListBox4.AddItem 79: ListBox4.List(78, 1) = "Malayalam": ListBox4.List(78, 2) = 1100: ListBox4.List(78, 3) = "044c": ListBox4.List(78, 4) = "": ListBox4.List(78, 5) = ""
ListBox4.AddItem 80: ListBox4.List(79, 1) = "Assamese": ListBox4.List(79, 2) = 1101: ListBox4.List(79, 3) = "044d": ListBox4.List(79, 4) = "": ListBox4.List(79, 5) = ""
ListBox4.AddItem 81: ListBox4.List(80, 1) = "Marathi": ListBox4.List(80, 2) = 1102: ListBox4.List(80, 3) = "044e": ListBox4.List(80, 4) = "0": ListBox4.List(80, 5) = "IND"
ListBox4.AddItem 82: ListBox4.List(81, 1) = "Sanskrit": ListBox4.List(81, 2) = 1103: ListBox4.List(81, 3) = "044f": ListBox4.List(81, 4) = "0": ListBox4.List(81, 5) = "IND"
ListBox4.AddItem 83: ListBox4.List(82, 1) = "Mongolian (Cyrillic)": ListBox4.List(82, 2) = 1104: ListBox4.List(82, 3) = "0450": ListBox4.List(82, 4) = "1251": ListBox4.List(82, 5) = "MNG"
ListBox4.AddItem 84: ListBox4.List(83, 1) = "Tibetan": ListBox4.List(83, 2) = 1105: ListBox4.List(83, 3) = "0451": ListBox4.List(83, 4) = "": ListBox4.List(83, 5) = ""
ListBox4.AddItem 85: ListBox4.List(84, 1) = "Welsh": ListBox4.List(84, 2) = 1106: ListBox4.List(84, 3) = "0452": ListBox4.List(84, 4) = "": ListBox4.List(84, 5) = ""
ListBox4.AddItem 86: ListBox4.List(85, 1) = "Khmer": ListBox4.List(85, 2) = 1107: ListBox4.List(85, 3) = "0453": ListBox4.List(85, 4) = "": ListBox4.List(85, 5) = ""
ListBox4.AddItem 87: ListBox4.List(86, 1) = "Lao": ListBox4.List(86, 2) = 1108: ListBox4.List(86, 3) = "0454": ListBox4.List(86, 4) = "": ListBox4.List(86, 5) = ""
ListBox4.AddItem 88: ListBox4.List(87, 1) = "Burmese": ListBox4.List(87, 2) = 1109: ListBox4.List(87, 3) = "0455": ListBox4.List(87, 4) = "": ListBox4.List(87, 5) = ""
ListBox4.AddItem 89: ListBox4.List(88, 1) = "Galician": ListBox4.List(88, 2) = 1110: ListBox4.List(88, 3) = "0456": ListBox4.List(88, 4) = "1252": ListBox4.List(88, 5) = "ESP"
ListBox4.AddItem 90: ListBox4.List(89, 1) = "Konkani": ListBox4.List(89, 2) = 1111: ListBox4.List(89, 3) = "0457": ListBox4.List(89, 4) = "0": ListBox4.List(89, 5) = "IND"
ListBox4.AddItem 91: ListBox4.List(90, 1) = "Manipuri": ListBox4.List(90, 2) = 1112: ListBox4.List(90, 3) = "0458": ListBox4.List(90, 4) = "": ListBox4.List(90, 5) = ""
ListBox4.AddItem 92: ListBox4.List(91, 1) = "Sindhi": ListBox4.List(91, 2) = 1113: ListBox4.List(91, 3) = "0459": ListBox4.List(91, 4) = "": ListBox4.List(91, 5) = ""
ListBox4.AddItem 93: ListBox4.List(92, 1) = "Syriac": ListBox4.List(92, 2) = 1114: ListBox4.List(92, 3) = "045a": ListBox4.List(92, 4) = "0": ListBox4.List(92, 5) = "SYR"
ListBox4.AddItem 94: ListBox4.List(93, 1) = "Sinhalese (Sri Lanka)": ListBox4.List(93, 2) = 1115: ListBox4.List(93, 3) = "045b": ListBox4.List(93, 4) = "": ListBox4.List(93, 5) = ""
ListBox4.AddItem 95: ListBox4.List(94, 1) = "Amharic (Ethiopia)": ListBox4.List(94, 2) = 1118: ListBox4.List(94, 3) = "045e": ListBox4.List(94, 4) = "0": ListBox4.List(94, 5) = "ETH"
ListBox4.AddItem 96: ListBox4.List(95, 1) = "Kashmiri": ListBox4.List(95, 2) = 1120: ListBox4.List(95, 3) = "0460": ListBox4.List(95, 4) = "": ListBox4.List(95, 5) = ""
ListBox4.AddItem 97: ListBox4.List(96, 1) = "Nepali": ListBox4.List(96, 2) = 1121: ListBox4.List(96, 3) = "0461": ListBox4.List(96, 4) = "": ListBox4.List(96, 5) = ""
ListBox4.AddItem 98: ListBox4.List(97, 1) = "Frisian (Netherlands)": ListBox4.List(97, 2) = 1122: ListBox4.List(97, 3) = "0462": ListBox4.List(97, 4) = "": ListBox4.List(97, 5) = ""
ListBox4.AddItem 99: ListBox4.List(98, 1) = "Filipino": ListBox4.List(98, 2) = 1124: ListBox4.List(98, 3) = "0464": ListBox4.List(98, 4) = "": ListBox4.List(98, 5) = ""
ListBox4.AddItem 100: ListBox4.List(99, 1) = "Divehi": ListBox4.List(99, 2) = 1125: ListBox4.List(99, 3) = "0465": ListBox4.List(99, 4) = "0": ListBox4.List(99, 5) = "MDV"
ListBox4.AddItem 101: ListBox4.List(100, 1) = "Edo": ListBox4.List(100, 2) = 1126: ListBox4.List(100, 3) = "0466": ListBox4.List(100, 4) = "": ListBox4.List(100, 5) = ""
ListBox4.AddItem 102: ListBox4.List(101, 1) = "Igbo (Nigeria)": ListBox4.List(101, 2) = 1136: ListBox4.List(101, 3) = "0470": ListBox4.List(101, 4) = "": ListBox4.List(101, 5) = ""
ListBox4.AddItem 103: ListBox4.List(102, 1) = "Guarani (Paraguay)": ListBox4.List(102, 2) = 1140: ListBox4.List(102, 3) = "0474": ListBox4.List(102, 4) = "": ListBox4.List(102, 5) = ""
ListBox4.AddItem 104: ListBox4.List(103, 1) = "Latin": ListBox4.List(103, 2) = 1142: ListBox4.List(103, 3) = "0476": ListBox4.List(103, 4) = "": ListBox4.List(103, 5) = ""
ListBox4.AddItem 105: ListBox4.List(104, 1) = "Somali": ListBox4.List(104, 2) = 1143: ListBox4.List(104, 3) = "0477": ListBox4.List(104, 4) = "": ListBox4.List(104, 5) = ""
ListBox4.AddItem 106: ListBox4.List(105, 1) = "Maori (New Zealand)": ListBox4.List(105, 2) = 1153: ListBox4.List(105, 3) = "0481": ListBox4.List(105, 4) = "": ListBox4.List(105, 5) = ""
ListBox4.AddItem 107: ListBox4.List(106, 1) = "HID (Human Interface Device)": ListBox4.List(106, 2) = 1279: ListBox4.List(106, 3) = "04ff": ListBox4.List(106, 4) = "": ListBox4.List(106, 5) = ""
ListBox4.AddItem 108: ListBox4.List(107, 1) = "Arabic (Iraq)": ListBox4.List(107, 2) = 2049: ListBox4.List(107, 3) = "0801": ListBox4.List(107, 4) = "1256": ListBox4.List(107, 5) = "IRQ"
ListBox4.AddItem 109: ListBox4.List(108, 1) = "Chinese (PRC)": ListBox4.List(108, 2) = 2052: ListBox4.List(108, 3) = "0804": ListBox4.List(108, 4) = "936": ListBox4.List(108, 5) = "CHN"
ListBox4.AddItem 110: ListBox4.List(109, 1) = "German (Switzerland)": ListBox4.List(109, 2) = 2055: ListBox4.List(109, 3) = "0807": ListBox4.List(109, 4) = "1252": ListBox4.List(109, 5) = "CHE"
ListBox4.AddItem 111: ListBox4.List(110, 1) = "English (United Kingdom)": ListBox4.List(110, 2) = 2057: ListBox4.List(110, 3) = "0809": ListBox4.List(110, 4) = "1252": ListBox4.List(110, 5) = "GBR"
ListBox4.AddItem 112: ListBox4.List(111, 1) = "Spanish (Mexico)": ListBox4.List(111, 2) = 2058: ListBox4.List(111, 3) = "080a": ListBox4.List(111, 4) = "1252": ListBox4.List(111, 5) = "MEX"
ListBox4.AddItem 113: ListBox4.List(112, 1) = "French (Belgium)": ListBox4.List(112, 2) = 2060: ListBox4.List(112, 3) = "080c": ListBox4.List(112, 4) = "1252": ListBox4.List(112, 5) = "BEL"
ListBox4.AddItem 114: ListBox4.List(113, 1) = "Italian (Switzerland)": ListBox4.List(113, 2) = 2064: ListBox4.List(113, 3) = "0810": ListBox4.List(113, 4) = "1252": ListBox4.List(113, 5) = "CHE"
ListBox4.AddItem 115: ListBox4.List(114, 1) = "Dutch (Belgium)": ListBox4.List(114, 2) = 2067: ListBox4.List(114, 3) = "0813": ListBox4.List(114, 4) = "1252": ListBox4.List(114, 5) = "BEL"
ListBox4.AddItem 116: ListBox4.List(115, 1) = "Norwegian (Nynorsk)": ListBox4.List(115, 2) = 2068: ListBox4.List(115, 3) = "0814": ListBox4.List(115, 4) = "1252": ListBox4.List(115, 5) = "NOR"
ListBox4.AddItem 117: ListBox4.List(116, 1) = "Portuguese (Portugal)": ListBox4.List(116, 2) = 2070: ListBox4.List(116, 3) = "0816": ListBox4.List(116, 4) = "1252": ListBox4.List(116, 5) = "PRT"
ListBox4.AddItem 118: ListBox4.List(117, 1) = "Romanian (Moldova)": ListBox4.List(117, 2) = 2072: ListBox4.List(117, 3) = "0818": ListBox4.List(117, 4) = "": ListBox4.List(117, 5) = ""
ListBox4.AddItem 119: ListBox4.List(118, 1) = "Russian (Moldova)": ListBox4.List(118, 2) = 2073: ListBox4.List(118, 3) = "0819": ListBox4.List(118, 4) = "": ListBox4.List(118, 5) = ""
ListBox4.AddItem 120: ListBox4.List(119, 1) = "Serbian (Latin)": ListBox4.List(119, 2) = 2074: ListBox4.List(119, 3) = "081a": ListBox4.List(119, 4) = "1250": ListBox4.List(119, 5) = "SPB"
ListBox4.AddItem 121: ListBox4.List(120, 1) = "Swedish (Finland)": ListBox4.List(120, 2) = 2077: ListBox4.List(120, 3) = "081d": ListBox4.List(120, 4) = "1252": ListBox4.List(120, 5) = "FIN"
ListBox4.AddItem 122: ListBox4.List(121, 1) = "Azeri (Cyrillic)": ListBox4.List(121, 2) = 2092: ListBox4.List(121, 3) = "082c": ListBox4.List(121, 4) = "1251": ListBox4.List(121, 5) = "AZE"
ListBox4.AddItem 123: ListBox4.List(122, 1) = "Gaelic Ireland": ListBox4.List(122, 2) = 2108: ListBox4.List(122, 3) = "083c": ListBox4.List(122, 4) = "": ListBox4.List(122, 5) = ""
ListBox4.AddItem 124: ListBox4.List(123, 1) = "Malay (Brunei Darussalam)": ListBox4.List(123, 2) = 2110: ListBox4.List(123, 3) = "083e": ListBox4.List(123, 4) = "1252": ListBox4.List(123, 5) = "BRN"
ListBox4.AddItem 125: ListBox4.List(124, 1) = "Uzbek (Cyrillic)": ListBox4.List(124, 2) = 2115: ListBox4.List(124, 3) = "0843": ListBox4.List(124, 4) = "1251": ListBox4.List(124, 5) = "UZB"
ListBox4.AddItem 126: ListBox4.List(125, 1) = "Bengali (Bangladesh)": ListBox4.List(125, 2) = 2117: ListBox4.List(125, 3) = "0845": ListBox4.List(125, 4) = "0": ListBox4.List(125, 5) = "BGD"
ListBox4.AddItem 127: ListBox4.List(126, 1) = "Mongolian (Mongolia)": ListBox4.List(126, 2) = 2128: ListBox4.List(126, 3) = "0850": ListBox4.List(126, 4) = "0": ListBox4.List(126, 5) = "MNG"
ListBox4.AddItem 128: ListBox4.List(127, 1) = "Arabic (Egypt)": ListBox4.List(127, 2) = 3073: ListBox4.List(127, 3) = "0c01": ListBox4.List(127, 4) = "1256": ListBox4.List(127, 5) = "EGY"
ListBox4.AddItem 129: ListBox4.List(128, 1) = "Chinese (Hong Kong S.A.R.)": ListBox4.List(128, 2) = 3076: ListBox4.List(128, 3) = "0c04": ListBox4.List(128, 4) = "950": ListBox4.List(128, 5) = "HKG"
ListBox4.AddItem 130: ListBox4.List(129, 1) = "German (Austria)": ListBox4.List(129, 2) = 3079: ListBox4.List(129, 3) = "0c07": ListBox4.List(129, 4) = "1252": ListBox4.List(129, 5) = "AUT"
ListBox4.AddItem 131: ListBox4.List(130, 1) = "English (Australia)": ListBox4.List(130, 2) = 3081: ListBox4.List(130, 3) = "0c09": ListBox4.List(130, 4) = "1252": ListBox4.List(130, 5) = "AUS"
ListBox4.AddItem 132: ListBox4.List(131, 1) = "Spanish (International Sort)": ListBox4.List(131, 2) = 3082: ListBox4.List(131, 3) = "0c0a": ListBox4.List(131, 4) = "1252": ListBox4.List(131, 5) = "ESP"
ListBox4.AddItem 133: ListBox4.List(132, 1) = "French (Canada)": ListBox4.List(132, 2) = 3084: ListBox4.List(132, 3) = "0c0c": ListBox4.List(132, 4) = "1252": ListBox4.List(132, 5) = "CAN"
ListBox4.AddItem 134: ListBox4.List(133, 1) = "Serbian (Cyrillic)": ListBox4.List(133, 2) = 3098: ListBox4.List(133, 3) = "0c1a": ListBox4.List(133, 4) = "1251": ListBox4.List(133, 5) = "SPB"
ListBox4.AddItem 135: ListBox4.List(134, 1) = "Arabic (Libya)": ListBox4.List(134, 2) = 4097: ListBox4.List(134, 3) = "1001": ListBox4.List(134, 4) = "1256": ListBox4.List(134, 5) = "LBY"
ListBox4.AddItem 136: ListBox4.List(135, 1) = "Chinese (Singapore)": ListBox4.List(135, 2) = 4100: ListBox4.List(135, 3) = "1004": ListBox4.List(135, 4) = "936": ListBox4.List(135, 5) = "SGP"
ListBox4.AddItem 137: ListBox4.List(136, 1) = "German (Luxembourg)": ListBox4.List(136, 2) = 4103: ListBox4.List(136, 3) = "1007": ListBox4.List(136, 4) = "1252": ListBox4.List(136, 5) = "LUX"
ListBox4.AddItem 138: ListBox4.List(137, 1) = "English (Canada)": ListBox4.List(137, 2) = 4105: ListBox4.List(137, 3) = "1009": ListBox4.List(137, 4) = "1252": ListBox4.List(137, 5) = "CAN"
ListBox4.AddItem 139: ListBox4.List(138, 1) = "Spanish (Guatemala)": ListBox4.List(138, 2) = 4106: ListBox4.List(138, 3) = "100a": ListBox4.List(138, 4) = "1252": ListBox4.List(138, 5) = "GTM"
ListBox4.AddItem 140: ListBox4.List(139, 1) = "French (Switzerland)": ListBox4.List(139, 2) = 4108: ListBox4.List(139, 3) = "100c": ListBox4.List(139, 4) = "1252": ListBox4.List(139, 5) = "CHE"
ListBox4.AddItem 141: ListBox4.List(140, 1) = "Croatian (Bosnia/Herzegovina)": ListBox4.List(140, 2) = 4122: ListBox4.List(140, 3) = "101a": ListBox4.List(140, 4) = "0": ListBox4.List(140, 5) = "BIH"
ListBox4.AddItem 142: ListBox4.List(141, 1) = "Arabic (Algeria)": ListBox4.List(141, 2) = 5121: ListBox4.List(141, 3) = "1401": ListBox4.List(141, 4) = "1256": ListBox4.List(141, 5) = "DZA"
ListBox4.AddItem 143: ListBox4.List(142, 1) = "Chinese (Macau S.A.R.)": ListBox4.List(142, 2) = 5124: ListBox4.List(142, 3) = "1404": ListBox4.List(142, 4) = "950": ListBox4.List(142, 5) = "MCO"
ListBox4.AddItem 144: ListBox4.List(143, 1) = "German (Liechtenstein)": ListBox4.List(143, 2) = 5127: ListBox4.List(143, 3) = "1407": ListBox4.List(143, 4) = "1252": ListBox4.List(143, 5) = "LIE"
ListBox4.AddItem 145: ListBox4.List(144, 1) = "English (New Zealand)": ListBox4.List(144, 2) = 5129: ListBox4.List(144, 3) = "1409": ListBox4.List(144, 4) = "1252": ListBox4.List(144, 5) = "NZL"
ListBox4.AddItem 146: ListBox4.List(145, 1) = "Spanish (Costa Rica)": ListBox4.List(145, 2) = 5130: ListBox4.List(145, 3) = "140a": ListBox4.List(145, 4) = "1252": ListBox4.List(145, 5) = "CRI"
ListBox4.AddItem 147: ListBox4.List(146, 1) = "French (Luxembourg)": ListBox4.List(146, 2) = 5132: ListBox4.List(146, 3) = "140c": ListBox4.List(146, 4) = "1252": ListBox4.List(146, 5) = "LUX"
ListBox4.AddItem 148: ListBox4.List(147, 1) = "Bosnian (Bosnia/Herzegovina)": ListBox4.List(147, 2) = 5146: ListBox4.List(147, 3) = "141A": ListBox4.List(147, 4) = "0": ListBox4.List(147, 5) = "BIH"
ListBox4.AddItem 149: ListBox4.List(148, 1) = "Arabic (Morocco)": ListBox4.List(148, 2) = 6145: ListBox4.List(148, 3) = "1801": ListBox4.List(148, 4) = "1256": ListBox4.List(148, 5) = "MAR"
ListBox4.AddItem 150: ListBox4.List(149, 1) = "English (Ireland)": ListBox4.List(149, 2) = 6153: ListBox4.List(149, 3) = "1809": ListBox4.List(149, 4) = "1252": ListBox4.List(149, 5) = "IRL"
ListBox4.AddItem 151: ListBox4.List(150, 1) = "Spanish (Panama)": ListBox4.List(150, 2) = 6154: ListBox4.List(150, 3) = "180a": ListBox4.List(150, 4) = "1252": ListBox4.List(150, 5) = "PAN"
ListBox4.AddItem 152: ListBox4.List(151, 1) = "French (Monaco)": ListBox4.List(151, 2) = 6156: ListBox4.List(151, 3) = "180c": ListBox4.List(151, 4) = "1252": ListBox4.List(151, 5) = "MCO"
ListBox4.AddItem 153: ListBox4.List(152, 1) = "Arabic (Tunisia)": ListBox4.List(152, 2) = 7169: ListBox4.List(152, 3) = "1c01": ListBox4.List(152, 4) = "1256": ListBox4.List(152, 5) = "TUN"
ListBox4.AddItem 154: ListBox4.List(153, 1) = "English (South Africa)": ListBox4.List(153, 2) = 7177: ListBox4.List(153, 3) = "1c09": ListBox4.List(153, 4) = "1252": ListBox4.List(153, 5) = "ZAF"
ListBox4.AddItem 155: ListBox4.List(154, 1) = "Spanish (Dominican Republic)": ListBox4.List(154, 2) = 7178: ListBox4.List(154, 3) = "1c0a": ListBox4.List(154, 4) = "1252": ListBox4.List(154, 5) = "DOM"
ListBox4.AddItem 156: ListBox4.List(155, 1) = "French (West Indies)": ListBox4.List(155, 2) = 7180: ListBox4.List(155, 3) = "1c0c": ListBox4.List(155, 4) = "": ListBox4.List(155, 5) = ""
ListBox4.AddItem 157: ListBox4.List(156, 1) = "Arabic (Oman)": ListBox4.List(156, 2) = 8193: ListBox4.List(156, 3) = "2001": ListBox4.List(156, 4) = "1256": ListBox4.List(156, 5) = "OMN"
ListBox4.AddItem 158: ListBox4.List(157, 1) = "English (Jamaica)": ListBox4.List(157, 2) = 8201: ListBox4.List(157, 3) = "2009": ListBox4.List(157, 4) = "1252": ListBox4.List(157, 5) = "JAM"
ListBox4.AddItem 159: ListBox4.List(158, 1) = "Spanish (Venezuela)": ListBox4.List(158, 2) = 8202: ListBox4.List(158, 3) = "200a": ListBox4.List(158, 4) = "1252": ListBox4.List(158, 5) = "VEN"
ListBox4.AddItem 160: ListBox4.List(159, 1) = "Arabic (Yemen)": ListBox4.List(159, 2) = 9217: ListBox4.List(159, 3) = "2401": ListBox4.List(159, 4) = "1256": ListBox4.List(159, 5) = "YEM"
ListBox4.AddItem 161: ListBox4.List(160, 1) = "English (Caribbean)": ListBox4.List(160, 2) = 9225: ListBox4.List(160, 3) = "2409": ListBox4.List(160, 4) = "1252": ListBox4.List(160, 5) = "CAR"
ListBox4.AddItem 162: ListBox4.List(161, 1) = "Spanish (Colombia)": ListBox4.List(161, 2) = 9226: ListBox4.List(161, 3) = "240a": ListBox4.List(161, 4) = "1252": ListBox4.List(161, 5) = "COL"
ListBox4.AddItem 163: ListBox4.List(162, 1) = "French (Congo, DRC)": ListBox4.List(162, 2) = 9228: ListBox4.List(162, 3) = "240c": ListBox4.List(162, 4) = "": ListBox4.List(162, 5) = ""
ListBox4.AddItem 164: ListBox4.List(163, 1) = "Arabic (Syria)": ListBox4.List(163, 2) = 10241: ListBox4.List(163, 3) = "2801": ListBox4.List(163, 4) = "1256": ListBox4.List(163, 5) = "SYR"
ListBox4.AddItem 165: ListBox4.List(164, 1) = "English (Belize)": ListBox4.List(164, 2) = 10249: ListBox4.List(164, 3) = "2809": ListBox4.List(164, 4) = "1252": ListBox4.List(164, 5) = "BLZ"
ListBox4.AddItem 166: ListBox4.List(165, 1) = "Spanish (Peru)": ListBox4.List(165, 2) = 10250: ListBox4.List(165, 3) = "280a": ListBox4.List(165, 4) = "1252": ListBox4.List(165, 5) = "PER"
ListBox4.AddItem 167: ListBox4.List(166, 1) = "French (Senegal)": ListBox4.List(166, 2) = 10252: ListBox4.List(166, 3) = "280c": ListBox4.List(166, 4) = "": ListBox4.List(166, 5) = ""
ListBox4.AddItem 168: ListBox4.List(167, 1) = "Arabic (Jordan)": ListBox4.List(167, 2) = 11265: ListBox4.List(167, 3) = "2c01": ListBox4.List(167, 4) = "1256": ListBox4.List(167, 5) = "JOR"
ListBox4.AddItem 169: ListBox4.List(168, 1) = "English (Trinidad)": ListBox4.List(168, 2) = 11273: ListBox4.List(168, 3) = "2c09": ListBox4.List(168, 4) = "1252": ListBox4.List(168, 5) = "TTO"
ListBox4.AddItem 170: ListBox4.List(169, 1) = "Spanish (Argentina)": ListBox4.List(169, 2) = 11274: ListBox4.List(169, 3) = "2c0a": ListBox4.List(169, 4) = "1252": ListBox4.List(169, 5) = "ARG"
ListBox4.AddItem 171: ListBox4.List(170, 1) = "Arabic (Lebanon)": ListBox4.List(170, 2) = 12289: ListBox4.List(170, 3) = "3001": ListBox4.List(170, 4) = "1256": ListBox4.List(170, 5) = "LBN"
ListBox4.AddItem 172: ListBox4.List(171, 1) = "English (Zimbabwe)": ListBox4.List(171, 2) = 12297: ListBox4.List(171, 3) = "3009": ListBox4.List(171, 4) = "1252": ListBox4.List(171, 5) = "ZWE"
ListBox4.AddItem 173: ListBox4.List(172, 1) = "Spanish (Ecuador)": ListBox4.List(172, 2) = 12298: ListBox4.List(172, 3) = "300a": ListBox4.List(172, 4) = "1252": ListBox4.List(172, 5) = "ECU"
ListBox4.AddItem 174: ListBox4.List(173, 1) = "French (Cote d'Ivoire)": ListBox4.List(173, 2) = 12300: ListBox4.List(173, 3) = "300c": ListBox4.List(173, 4) = "": ListBox4.List(173, 5) = ""
ListBox4.AddItem 175: ListBox4.List(174, 1) = "Arabic (Kuwait)": ListBox4.List(174, 2) = 13313: ListBox4.List(174, 3) = "3401": ListBox4.List(174, 4) = "1256": ListBox4.List(174, 5) = "KWT"
ListBox4.AddItem 176: ListBox4.List(175, 1) = "English (Philippines)": ListBox4.List(175, 2) = 13321: ListBox4.List(175, 3) = "3409": ListBox4.List(175, 4) = "1252": ListBox4.List(175, 5) = "PHL"
ListBox4.AddItem 177: ListBox4.List(176, 1) = "Spanish (Chile)": ListBox4.List(176, 2) = 13322: ListBox4.List(176, 3) = "340a": ListBox4.List(176, 4) = "1252": ListBox4.List(176, 5) = "CHL"
ListBox4.AddItem 178: ListBox4.List(177, 1) = "French (Mali)": ListBox4.List(177, 2) = 13324: ListBox4.List(177, 3) = "340c": ListBox4.List(177, 4) = "": ListBox4.List(177, 5) = ""
ListBox4.AddItem 179: ListBox4.List(178, 1) = "Arabic (U.A.E.)": ListBox4.List(178, 2) = 14337: ListBox4.List(178, 3) = "3801": ListBox4.List(178, 4) = "1256": ListBox4.List(178, 5) = "ARE"
ListBox4.AddItem 180: ListBox4.List(179, 1) = "Spanish (Uruguay)": ListBox4.List(179, 2) = 14346: ListBox4.List(179, 3) = "380a": ListBox4.List(179, 4) = "1252": ListBox4.List(179, 5) = "URY"
ListBox4.AddItem 181: ListBox4.List(180, 1) = "French (Morocco)": ListBox4.List(180, 2) = 14348: ListBox4.List(180, 3) = "380c": ListBox4.List(180, 4) = "": ListBox4.List(180, 5) = ""
ListBox4.AddItem 182: ListBox4.List(181, 1) = "Arabic (Bahrain)": ListBox4.List(181, 2) = 15361: ListBox4.List(181, 3) = "3c01": ListBox4.List(181, 4) = "1256": ListBox4.List(181, 5) = "BHR"
ListBox4.AddItem 183: ListBox4.List(182, 1) = "Spanish (Paraguay)": ListBox4.List(182, 2) = 15370: ListBox4.List(182, 3) = "3c0a": ListBox4.List(182, 4) = "1252": ListBox4.List(182, 5) = "PRY"
ListBox4.AddItem 184: ListBox4.List(183, 1) = "Arabic (Qatar)": ListBox4.List(183, 2) = 16385: ListBox4.List(183, 3) = "4001": ListBox4.List(183, 4) = "1256": ListBox4.List(183, 5) = "QAT"
ListBox4.AddItem 185: ListBox4.List(184, 1) = "English (India)": ListBox4.List(184, 2) = 16393: ListBox4.List(184, 3) = "4009": ListBox4.List(184, 4) = "": ListBox4.List(184, 5) = ""
ListBox4.AddItem 186: ListBox4.List(185, 1) = "Spanish (Bolivia)": ListBox4.List(185, 2) = 16394: ListBox4.List(185, 3) = "400a": ListBox4.List(185, 4) = "1252": ListBox4.List(185, 5) = "BOL"
ListBox4.AddItem 187: ListBox4.List(186, 1) = "Spanish (El Salvador)": ListBox4.List(186, 2) = 17418: ListBox4.List(186, 3) = "440a": ListBox4.List(186, 4) = "1252": ListBox4.List(186, 5) = "SLV"
ListBox4.AddItem 188: ListBox4.List(187, 1) = "Spanish (Honduras)": ListBox4.List(187, 2) = 18442: ListBox4.List(187, 3) = "480a": ListBox4.List(187, 4) = "1252": ListBox4.List(187, 5) = "HND"
ListBox4.AddItem 189: ListBox4.List(188, 1) = "Spanish (Nicaragua)": ListBox4.List(188, 2) = 19466: ListBox4.List(188, 3) = "4c0a": ListBox4.List(188, 4) = "1252": ListBox4.List(188, 5) = "NIC"
ListBox4.AddItem 190: ListBox4.List(189, 1) = "Spanish (Puerto Rico)": ListBox4.List(189, 2) = 20490: ListBox4.List(189, 3) = "500a": ListBox4.List(189, 4) = "1252": ListBox4.List(189, 5) = "PRI"

End Sub
Sub LisanKontrol()

On Error Resume Next
LisanIDExeMode = Application.LanguageSettings.LanguageID(msoLanguageIDExeMode)
Label27.Caption = LisanBul(LisanIDExeMode)
LisanIDHelp = Application.LanguageSettings.LanguageID(msoLanguageIDHelp)
Label29.Caption = LisanBul(LisanIDHelp)
LisanIDInstall = Application.LanguageSettings.LanguageID(msoLanguageIDInstall)
Label31.Caption = LisanBul(LisanIDInstall)
LisanIDUI = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
Label33.Caption = LisanBul(LisanIDUI)
LisanIDUIPrevious = Application.LanguageSettings.LanguageID(msoLanguageIDUIPrevious)
Label35.Caption = LisanBul(LisanIDUIPrevious)
If LisanIDExeMode = LisanIDUI Then

Label36.Caption = "The user interface language and execution " & "mode are different."

Else

Label36.Caption = "The user interface language and execution " & "mode are different."

End If

End Sub
Private Function LisanBul(ID As Long) As String

On Error Resume Next
Tanım = ""
For i = 1 To 190

If ListBox4.List((i - 1), 2) = ID Then Tanım = ListBox4.List((i - 1), 1)

Next i
LisanBul = Tanım

End Function

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.
Public Const URL1 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod Klavuzu [Vector Backround]
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Public Const URL3 As String = "http://4.bp.blogspot.com/_hsHTxo_5L8E/TKHXL1-dHVI/AAAAAAAAClo/xxJAhuSHReI/s1600/seven-shine-1024-768.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD BackroundPicture]
Public URL As String
Sub FormAç() 'Open UserForm

On Error Resume Next
Load UserForm1

End Sub
Public Function Resim(URL) As Picture 'Picture load frome web address...

On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim

End Function
'Sub References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

'Class1

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal ClassName As String, ByVal WindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal Index As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal Index As Long, ByVal NewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Const PDSM As Long = &H80000 'Pencere Düzeni Sistem Menülü
Private Const PDTD As Long = &H30000 'Pencere Düzeni Tam Düğmeli
Private Const PDKD As Long = &H20000 'Pencere Düzeni Küçültme Düğmeli
Private Const PDBD As Long = &H10000 'Pencere Düzeni Büyültme Düğmeli
Private Const PDDÇ As Long = &H1 'Pencere Düzeni DiyalogÇerçeveli (Excel 4.0)
Private Const PDEA As Long = &H80 'Pencere Düzeni Eski Araçlı
Private Const PDYÇ As Long = -16 'Pencere Düzeni Yeni Çağırmalı
Private Const PDEÇ As Long = -20 'Pencere Düzeni Eski Çağırmalı
Private Const PDGA As Long = 3 'Pencere Düzeni Geniş Açmalı
Private Const PDNA As Long = 5 'Pencere Düzeni Normal Açmalı
Private Pencere As Long, Çerçeve As Long
Private Resimlik As New ImageList
Private Simge
Public Property Set ResimEkle(ByVal Ekran As Object)

On Error Resume Next
Resimlik.ListImages.Add 1, "R1", LoadPicture("C:\Program Files\Microsoft Office\OFFICE11\MSN.ico")
Simge = Resimlik.ListImages(1).Picture
If Val(Application.Version) = 8 Then

Pencere = FindWindow("ThunderXFrame", Ekran.Caption)

Else

Pencere = FindWindow("ThunderDFrame", Ekran.Caption)

End If
If Pencere = 0 Then Exit Property
SendMessage Pencere, PDEA, True, Simge: SendMessage Pencere, PDEA, False, Simge
Çerçeve = GetWindowLong(Pencere, PDEÇ): Çerçeve = Çerçeve And Not PDDÇ
SetWindowLong Pencere, PDEÇ, Çerçeve
DrawMenuBar Pencere

End Property
Public Property Set Ekran1(ByVal Ekran As Object) '[+][-][+]

On Error Resume Next
Pencere = FindWindow(vbNullString, Ekran.Caption)
Çerçeve = GetWindowLong(Pencere, (PDYÇ)) Or PDKD
SetWindowLong Pencere, (PDYÇ), Çerçeve
ShowWindow Pencere, PDNA
DrawMenuBar Pencere

End Property

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul