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

Private Const LOCALE_SYSTEM_DEFAULT As Long = &H400
Private Const LOCALE_SENGCOUNTRY = &H1002

Public Function GetCountry() As String
Dim sName As String * 256, lBuffSize As Long

lBuffSize = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, ByVal sName, Len(sName))

GetCountry = Left(sName, lBuffSize - 1)

End Function

Public Function GetFlag(sCountry As String) As Integer

Select Case (sCountry)
    Case "Andorra":
        GetFlag = 1
    Case "United Arab Emirates":
        GetFlag = 2
    Case "Afghanistan":
        GetFlag = 3
    Case "Antigua and Barbuda":
        GetFlag = 4
    Case "Anguilla":
        GetFlag = 5
    Case "Albania":
        GetFlag = 6
    Case "Armenia":
        GetFlag = 7
    Case "Netherlands Antilles":
        GetFlag = 8
    Case "Angola":
        GetFlag = 9
    Case "Argentina":
        GetFlag = 10
    Case "American Samoa":
        GetFlag = 11
    Case "Austria":
        GetFlag = 12
    Case "Australia":
        GetFlag = 13
    Case "Aruba":
        GetFlag = 14
    Case "Åland Islands":
        GetFlag = 15
    Case "Azerbaijan":
        GetFlag = 16
    Case "Bosnia":
        GetFlag = 17
    Case "Herzegovina":
        GetFlag = 17
    Case "Barbados":
        GetFlag = 18
    Case "Bangladesh":
        GetFlag = 19
    Case "Belgium":
        GetFlag = 20
    Case "Burkina Faso":
        GetFlag = 21
    Case "Bulgaria":
        GetFlag = 22
    Case "Bahrain":
        GetFlag = 23
    Case "Burundi":
        GetFlag = 24
    Case "Benin":
        GetFlag = 25
    Case "Bermuda":
        GetFlag = 26
    Case "Brunei Darussalam":
        GetFlag = 27
    Case "Bolivia":
        GetFlag = 28
    Case "Brazil":
        GetFlag = 29
    Case "Bahamas":
        GetFlag = 30
    Case "Bhutan":
        GetFlag = 31
    Case "Bouvet Island":
        GetFlag = 32
    Case "Botswana":
        GetFlag = 33
    Case "Belarus":
        GetFlag = 34
    Case "Belize":
        GetFlag = 35
    Case "Canada":
        GetFlag = 36
    Case "Cocos (Keeling) Islands":
        GetFlag = 37
    Case "Congo, the Democratic Republic of the":
        GetFlag = 38
    Case "Central African Republic":
        GetFlag = 39
    Case "Congo":
        GetFlag = 40
    Case "Switzerland":
        GetFlag = 41
    Case "Côte d'Ivoire":
        GetFlag = 42
    Case "Cook Islands":
        GetFlag = 43
    Case "Chile":
        GetFlag = 44
    Case "Cameroon":
        GetFlag = 45
    Case "China":
        GetFlag = 46
    Case "Colombia":
        GetFlag = 47
    Case "Costa Rica":
        GetFlag = 48
    Case "Cuba":
        GetFlag = 49
    Case "Cape Verde":
        GetFlag = 50
    Case "Christmas Island":
        GetFlag = 51
    Case "Cyprus":
        GetFlag = 52
    Case "Czech Republic":
        GetFlag = 53
    Case "Germany":
        GetFlag = 54
    Case "Djibouti":
        GetFlag = 55
    Case "Denmark":
        GetFlag = 56
    Case "Dominica":
        GetFlag = 57
    Case "Dominican Republic":
        GetFlag = 58
    Case "Algeria":
        GetFlag = 59
    Case "Ecuador":
        GetFlag = 60
    Case "Estonia":
        GetFlag = 61
    Case "Egypt":
        GetFlag = 62
    Case "Western Sahara":
        GetFlag = 63
    Case "Eritrea":
        GetFlag = 64
    Case "Spain":
        GetFlag = 65
    Case "Ethiopia":
        GetFlag = 66
    Case "Finland":
        GetFlag = 67
    Case "Fiji":
        GetFlag = 68
    Case "Falkland Islands (Malvinas)":
        GetFlag = 69
    Case "Micronesia, Federated States of":
        GetFlag = 70
    Case "Faroe Islands":
        GetFlag = 71
    Case "France":
        GetFlag = 72
    Case "Gabon":
        GetFlag = 73
    Case "United Kingdom":
        GetFlag = 74
    Case "Grenada":
        GetFlag = 75
    Case "Georgia":
        GetFlag = 76
    Case "Guernsey":
        GetFlag = 77
    Case "Ghana":
        GetFlag = 78
    Case "Gibraltar":
        GetFlag = 79
    Case "Greenland":
        GetFlag = 80
    Case "Gambia":
        GetFlag = 81
    Case "Guinea":
        GetFlag = 82
    Case "Guadeloupe":
        GetFlag = 83
    Case "Equatorial Guinea":
        GetFlag = 84
    Case "Greece":
        GetFlag = 85
    Case "South Georgia and the South Sandwich Islands":
        GetFlag = 86
    Case "Guatemala":
        GetFlag = 87
    Case "Guam":
        GetFlag = 88
    Case "Guinea-Bissau":
        GetFlag = 89
    Case "Guyana":
        GetFlag = 90
    Case "Hong Kong":
        GetFlag = 91
    Case "Heard Island and McDonald Islands":
        GetFlag = 92
    Case "Honduras":
        GetFlag = 93
    Case "Croatia":
        GetFlag = 94
    Case "Haiti":
        GetFlag = 95
    Case "Hungary":
        GetFlag = 96
    Case "Indonesia":
        GetFlag = 97
    Case "Ireland":
        GetFlag = 98
    Case "Israel":
        GetFlag = 99
    Case "Isle of Man":
        GetFlag = 100
    Case "India":
        GetFlag = 101
    Case "British Indian Ocean Territory":
        GetFlag = 102
    Case "Iraq":
        GetFlag = 103
    Case "Iran, Islamic Republic of"
        GetFlag = 104
    Case "Iceland":
        GetFlag = 105
    Case "Italy":
        GetFlag = 106
    Case "Jersey":
        GetFlag = 107
    Case "Jamaica":
        GetFlag = 108
    Case "Jordan":
        GetFlag = 109
    Case "Japan":
        GetFlag = 110
    Case "Kenya":
        GetFlag = 111
    Case "Kyrgyzstan":
        GetFlag = 112
    Case "Cambodia":
        GetFlag = 113
    Case "Kiribati":
        GetFlag = 114
    Case "Comoros":
        GetFlag = 115
    Case "Saint Kitts and Nevis":
        GetFlag = 116
    Case "Korea, Democratic People's Republic of":
        GetFlag = 117
    Case "Korea, Republic of":
        GetFlag = 118
    Case "Kuwait":
        GetFlag = 119
    Case "Cayman Islands":
        GetFlag = 120
    Case "Kazakhstan":
        GetFlag = 121
    Case "Lao People's Democratic Republic":
        GetFlag = 122
    Case "Lebanon":
        GetFlag = 123
    Case "Saint Lucia":
        GetFlag = 124
    Case "Liechtenstein":
        GetFlag = 125
    Case "Sri Lanka":
        GetFlag = 126
    Case "Liberia":
        GetFlag = 127
    Case "Lesotho":
        GetFlag = 128
    Case "Lithuania":
        GetFlag = 129
    Case "Luxembourg":
        GetFlag = 130
    Case "Latvia":
        GetFlag = 131
    Case "Libyan Arab Jamahiriya":
        GetFlag = 132
    Case "Morocco":
        GetFlag = 133
    Case "Monaco":
        GetFlag = 134
    Case "Moldova, Republic of":
        GetFlag = 135
    Case "Montenegro":
        GetFlag = 136
    Case "Madagascar":
        GetFlag = 137
    Case "Marshall Islands":
        GetFlag = 138
    Case "Macedonia, the former Yugoslav Republic of":
        GetFlag = 139
    Case "Mali":
        GetFlag = 140
    Case "Myanmar":
        GetFlag = 141
    Case "Mongolia":
        GetFlag = 142
    Case "Macao":
        GetFlag = 143
    Case "Northern Mariana Islands":
        GetFlag = 144
    Case "Martinique":
        GetFlag = 145
    Case "Mauritania":
        GetFlag = 146
    Case "Montserrat":
        GetFlag = 147
    Case "Malta":
        GetFlag = 148
    Case "Mauritius":
        GetFlag = 149
    Case "Maldives":
        GetFlag = 150
    Case "Malawi":
        GetFlag = 151
    Case "Mexico":
        GetFlag = 152
    Case "Malaysia":
        GetFlag = 153
    Case "Mozambique":
        GetFlag = 154
    Case "Namibia":
        GetFlag = 155
    Case "New Caledonia":
        GetFlag = 156
    Case "Niger":
        GetFlag = 157
    Case "Norfolk Island":
        GetFlag = 158
    Case "Nigeria":
        GetFlag = 159
    Case "Nicaragua":
        GetFlag = 160
    Case "Netherlands":
        GetFlag = 162
    Case "Norway":
        GetFlag = 162
    Case "Nepal":
        GetFlag = 163
    Case "Nauru":
        GetFlag = 164
    Case "Niue":
        GetFlag = 165
    Case "New Zealand":
        GetFlag = 166
    Case "Oman":
        GetFlag = 167
    Case "Panama":
        GetFlag = 168
    Case "Peru":
        GetFlag = 169
    Case "French Polynesia":
        GetFlag = 170
    Case "Papua New Guinea":
        GetFlag = 171
    Case "Philippines":
        GetFlag = 172
    Case "Pakistan":
        GetFlag = 173
    Case "Poland":
        GetFlag = 174
    Case "Saint Pierre":
        GetFlag = 175
    Case "Miquelon":
        GetFlag = 175
    Case "Pitcairn":
        GetFlag = 176
    Case "Puerto Rico":
        GetFlag = 178
    Case "Palestinian Territory, Occupied":
        GetFlag = 178
    Case "Portugal":
        GetFlag = 179
    Case "Palau":
        GetFlag = 180
    Case "Paraguay":
        GetFlag = 181
    Case "Qatar":
        GetFlag = 182
    Case "Réunion":
        GetFlag = 183
    Case "Romania":
        GetFlag = 184
    Case "Serbia":
        GetFlag = 185
    Case "Russian Federation":
        GetFlag = 186
    Case "Rwanda":
        GetFlag = 187
    Case "Saudi Arabia":
        GetFlag = 188
    Case "Solomon Islands":
        GetFlag = 189
    Case "Seychelles":
        GetFlag = 190
    Case "Sudan":
        GetFlag = 191
    Case "Sweden":
        GetFlag = 192
    Case "Singapore":
        GetFlag = 193
    Case "Saint Helena":
        GetFlag = 194
    Case "Slovenia":
        GetFlag = 195
    Case "Svalbard":
        GetFlag = 196
    Case "Jan Mayen":
        GetFlag = 197
    Case "Slovakia":
        GetFlag = 198
    Case "Sierra Leone":
        GetFlag = 199
    Case "San Marino":
        GetFlag = 200
    Case "Senegal":
        GetFlag = 201
    Case "Somalia":
        GetFlag = 202
    Case "Suriname":
        GetFlag = 203
    Case "Sao Tome and Principe":
        GetFlag = 204
    Case "El Salvador":
        GetFlag = 205
    Case "Syrian Arab Republic":
        GetFlag = 206
    Case "Swaziland":
        GetFlag = 207
    Case "Turks":
        GetFlag = 208
    Case "Caicos Islands":
        GetFlag = 209
    Case "Chad":
        GetFlag = 210
    Case "French Southern Territories":
        GetFlag = 211
    Case "Togo":
        GetFlag = 212
    Case "Thailand":
        GetFlag = 213
    Case "Tajikistan":
        GetFlag = 214
    Case "Tokelau":
        GetFlag = 215
    Case "Timor-Leste":
        GetFlag = 216
    Case "Turkmenistan":
        GetFlag = 217
    Case "Tunisia":
        GetFlag = 218
    Case "Tonga":
        GetFlag = 219
    Case "Turkey":
        GetFlag = 220
    Case "Trinidad and Tobago":
        GetFlag = 221
    Case "Tuvalu":
        GetFlag = 222
    Case "Taiwan, Province of China":
        GetFlag = 223
    Case "Tanzania, United Republic of":
        GetFlag = 224
    Case "Ukraine":
        GetFlag = 225
    Case "Uganda":
        GetFlag = 226
    Case "United States Minor Outlying Islands":
        GetFlag = 227
    Case "United States":
        GetFlag = 228
    Case "Uruguay":
        GetFlag = 229
    Case "Uzbekistan":
        GetFlag = 230
    Case "Saint Vincent and the Grenadines":
        GetFlag = 231
    Case "Venezuela":
        GetFlag = 232
    Case "Virgin Islands, British":
        GetFlag = 233
    Case "Virgin Islands, U.S.":
        GetFlag = 234
    Case "Viet Nam":
        GetFlag = 235
    Case "Vanuatu":
        GetFlag = 236
    Case "Wallis and Futuna":
        GetFlag = 237
    Case "Samoa":
        GetFlag = 238
    Case "Yemen":
        GetFlag = 239
    Case "Mayotte":
        GetFlag = 240
    Case "South Africa":
        GetFlag = 241
    Case "Zambia":
        GetFlag = 242
    Case "Zimbabwe":
        GetFlag = 243
    
End Select
        
End Function

Private Sub mnuGetFlag_Click()
    lsFlags.ListItems.Add , , GetCountry, , GetFlag(GetCountry)
End Sub