Private Sub Form_Load()
AddCountry "IRAN", 912, 409, 400
AddCountry "IRELAND", 80, 155, 150
AddCountry "UNITED KINGDOM", 144, 104, 200
AddCountry "DENMARK", 396, 120, 100
AddCountry "FRANCE", 187, 228, 250
AddCountry "SPAIN", 110, 363, 250
AddCountry "PORTUGAL", 54, 425, 150
AddCountry "MOROCCO", 49, 509, 250
AddCountry "MAURITANIA", 0, 688, 250
AddCountry "SENEGAL", 0, 868, 130
AddCountry "GUINEA", 37, 919, 150
AddCountry "LIBERIA", 86, 995, 100
AddCountry "NIGERIA", 290, 879, 250
AddCountry "CAMEROON", 374, 935, 200
AddCountry "MALI", 75, 717, 300
AddCountry "NIGER", 255, 714, 300
AddCountry "ALGERIA", 110, 492, 400
AddCountry "LIBYA", 378, 531, 350
AddCountry "CHAD", 421, 750, 300
AddCountry "CENTRAL AFRICAN REP.", 481, 885, 250
AddCountry "SUDAN", 572, 760, 350
AddCountry "ETHIOPIA", 760, 834, 300
AddCountry "EGYPT", 626, 590, 250
AddCountry "YEMEN", 896, 777, 250
AddCountry "SAUDI ARABIA", 806, 583, 350
AddCountry "IRAQ", 856, 513, 200
AddCountry "SYRIA", 808, 506, 150
AddCountry "PAKISTAN", 1206, 503, 300
AddCountry "AFGHANISTAN", 1199, 470, 250
AddCountry "INDIA", 1198, 544, 500
Caption = Caption & " (" & CStr(CountryCount) & " countries)"
ShowMap "IRAN"
End Sub