Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Şubat 2011 Perşembe

To Create The Special UserForm




'UserForm1

'A) Macro Security
    'Tools\Macro\Security... [Picture: 1]
'B) Windows XP® Office 2003® Normal Referance List
    'Name: VBA, Description:Visual Basic For Applications
    'Name: Excel, Description: Microsoft Excel 11.0 Object Library
    'Name: stdole, Description: OLE Automation
    'Name: Office, Description: Microsoft Office 11.0 Object Library
    'Name:MSForms, Description: Microsoft Forms 2.0 Object Library
    'Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6)
    'Name: SHDocVw, Description: Microsoft Internet Controls
'C) UserForm1'e Eklenen Araçlar (Add Tools)
    'Image1, Image2, Image3, Image4, Image5
    'Label1, Label2, Label3, Label4
    'TreeView1, WebBrowser1

Option Explicit
Private Maskeleme As Class1
Private EkranDurumu As Double
Private Const Adet As Double = 274
Private i As Single, ii As Single
Private Bellek(1 To Adet, 1 To 3)
Private Sub UserForm_Initialize()
    On Error Resume Next
    Me.Caption = "[PBİD®]To Create The Special UserForm"
    Application.Visible = False
    Application.VBE.MainWindow.Visible = False
    Call EkranDüzenle
    Call VeriTabanıDüzenle
    Set Maskeleme = New Class1
    Set Maskeleme.Ekran1 = Me
    Set Maskeleme = New Class1
    Call Maskeleme.EkranYükleme(Me, &HFF00FF) 'Serigrafik Renk
    Call Maskeleme.EkranGösterme
End Sub
Private Sub UserForm_Activate()

    On Error Resume Next
    Me.Left = (Application.Width - Me.Width) / 2
    Me.Top = (Application.Height - Me.Height) / 2
End Sub
Private Sub UserForm_Resize()

    On Error Resume Next
    Me.Left = (Application.Width - Me.Width) / 2
    Me.Top = (Application.Height - Me.Height) / 2
End Sub
Private Sub UserForm_Terminate()

    On Error Resume Next
    Application.VBE.MainWindow.Visible = True
    Application.Visible = True
    Set Maskeleme = Nothing
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    Image1.BorderStyle = fmBorderStyleNone
    Image2.BorderStyle = fmBorderStyleNone
    Image3.BorderStyle = fmBorderStyleNone
    Image4.BorderStyle = fmBorderStyleNone
    Image5.BorderStyle = fmBorderStyleNone
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    Call Maskeleme.AraYüzFareAşağıKomutu(Button, Shift, X, Y)
End Sub
Private Sub Image1_Click()

    On Error Resume Next
    Call Maskeleme.EkranDurumu(Me, 2)
End Sub
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    Image1.BorderStyle = fmBorderStyleSingle
    Image1.ControlTipText = "Minimize Window"
End Sub
Private Sub Image2_Click()

    On Error Resume Next
    If EkranDurumu = 0 Then
        Image2.Picture = Resim(URL6)
        'Image2.Picture = LoadPicture("C:\\Mustafa ULUSARAÇ\SkinForm\Normal.ico")
        Call Maskeleme.EkranDurumu(Me, 3) 'Maximize
        Image2.ControlTipText = "Restore Window"
        EkranDurumu = 1
    Else
        Image2.Picture = Resim(URL3)
        'Image2.Picture = LoadPicture("C:\\Mustafa ULUSARAÇ\SkinForm\Büyü.ico")
        Call Maskeleme.EkranDurumu(Me, 1) 'Restore
        Image2.ControlTipText = "Maximize Window"
        EkranDurumu = 0
    End If
End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    Image2.BorderStyle = fmBorderStyleSingle
    If EkranDurumu = 0 Then
        Image2.ControlTipText = "Maximize Window"
    Else
        Image2.ControlTipText = "Restore Window"
    End If
End Sub
Private Sub Image3_Click()

    On Error Resume Next
    Unload Me
End Sub
Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    Image3.BorderStyle = fmBorderStyleSingle
    Image3.ControlTipText = "Close Window"
End Sub
Private Sub Image4_Click()

    On Error Resume Next
    'Optional
End Sub
Private Sub Image4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    Image4.BorderStyle = fmBorderStyleSingle
    Image4.ControlTipText = "Program Bütçeleme ve İzleme Değerlendirme"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

    On Error GoTo Hata
    URL = VBA.Trim(Node.Tag)
    If URL = "" Then
        WebBrowser1.Navigate "about:blank"
        Label4.Caption = " URL: "
    Else
        WebBrowser1.Navigate URL
        Label4.Caption = " URL: " & URL
    End If
    DoEvents
    Exit Sub
Hata:
    WebBrowser1.Navigate "about:blank"
End Sub
Private Sub EkranDüzenle()

    On Error Resume Next
    With Me
        .Height = 391
        .Width = 519
        .BackColor = &HFF00FF
        .Picture = Resim(URL1)
        '.Picture = LoadPicture("C:\\Mustafa ULUSARAÇ\SkinForm\WMP.bmp")
        .PictureSizeMode = fmPictureSizeModeClip
        .PictureAlignment = fmPictureAlignmentTopLeft
        .PictureTiling = False
        With Image1
            .BackStyle = fmBackStyleTransparent
            .BorderColor = vbWhite
            .BorderStyle = fmBorderStyleNone
            .Top = 12
            .Left = 432
            .Height = 18
            .Width = 18
            .Picture = Resim(URL2)
            '.Picture = LoadPicture("C:\\Mustafa ULUSARAÇ\SkinForm\Küçül.ico")
            .PictureAlignment = fmPictureAlignmentCenter
            .PictureSizeMode = fmPictureSizeModeClip
            .PictureTiling = False
        End With
        With Image2
            .BackStyle = fmBackStyleTransparent
            .BorderColor = vbWhite
            .BorderStyle = fmBorderStyleNone
            .Enabled = True
            .Top = 12
            .Left = 456
            .Height = 18
            .Width = 18
            .Picture = Resim(URL3)
            '.Picture = LoadPicture("C:\\Mustafa ULUSARAÇ\SkinForm\Büyü.ico")
            .PictureAlignment = fmPictureAlignmentCenter
            .PictureSizeMode = fmPictureSizeModeClip
            .PictureTiling = False
        End With
        With Image3
            .BackStyle = fmBackStyleTransparent
            .BorderColor = vbWhite
            .BorderStyle = fmBorderStyleNone
            .Top = 12
            .Left = 480
            .Height = 18
            .Width = 18
            .Picture = Resim(URL4)
            '.Picture = LoadPicture("C:\\Mustafa ULUSARAÇ\SkinForm\Kapat.ico")
            .PictureAlignment = fmPictureAlignmentCenter
            .PictureSizeMode = fmPictureSizeModeClip
            .PictureTiling = False
        End With
        With Image4
            .BackStyle = fmBackStyleTransparent
            .BorderColor = vbWhite
            .BorderStyle = fmBorderStyleNone
            .Top = 312
            .Left = 24
            .Height = 24
            .Width = 24
            .Picture = Resim(URL5)
            '.Picture = LoadPicture("C:\\Mustafa ULUSARAÇ\SkinForm\PBİD24.ico")
            .PictureAlignment = fmPictureAlignmentCenter
            .PictureSizeMode = fmPictureSizeModeClip
            .PictureTiling = False
        End With
        With Image5
            .BackStyle = fmBackStyleTransparent
            .BorderColor = vbWhite
            .BorderStyle = fmBorderStyleNone
            .Top = 2
            .Left = 2
            .Height = 21
            .Width = 21
            .Picture = LoadPicture("C:\Program Files\Microsoft Office\OFFICE11\MSN.ico")
            .PictureAlignment = fmPictureAlignmentCenter
            .PictureSizeMode = fmPictureSizeModeClip
            .PictureTiling = False
            .Visible = False
        End With
        With Label1
            .Top = 344
            .Left = 72
            .Height = 12
            .Width = 174
            .AutoSize = False
            .WordWrap = False
            .BackStyle = fmBackStyleTransparent
            .BorderStyle = fmBorderStyleNone
            .Caption = Me.Caption
            .Font.Bold = False
            .ForeColor = &H808000
            .TextAlign = fmTextAlignCenter
            .SpecialEffect = fmSpecialEffectFlat
        End With
        With Label2
            .Top = 36
            .Left = 66
            .Height = 12
            .Width = 186
            .AutoSize = False
            .WordWrap = False
            .BackStyle = fmBackStyleTransparent
            .BorderStyle = fmBorderStyleSingle
            .BorderColor = vbWhite
            .Caption = "Country List"
            .Font.Bold = False
            .ForeColor = &H808000
            .TextAlign = fmTextAlignCenter
            .SpecialEffect = fmSpecialEffectFlat
        End With
        With Label3
            .Top = 36
            .Left = 258
            .Height = 12
            .Width = 240
            .AutoSize = False
            .WordWrap = False
            .BackStyle = fmBackStyleTransparent
            .BorderStyle = fmBorderStyleSingle
            .BorderColor = vbWhite
            .Caption = "Country Flag"
            .Font.Bold = False
            .ForeColor = &H808000
            .TextAlign = fmTextAlignCenter
            .SpecialEffect = fmSpecialEffectFlat
        End With
        With TreeView1
            .Appearance = ccFlat
            .BorderStyle = ccNone
            .CheckBoxes = False
            .Enabled = True
            .FullRowSelect = False: .LineStyle = tvwRootLines
            .Height = 258
            .Left = 66
            .Top = 49
            .Width = 186
        End With
        With WebBrowser1
            .AddressBar = False
            .FullScreen = False
            .Height = 258
            .Left = 258
            .MenuBar = False
            .Navigate "about:blank"
            .Offline = False
            .Resizable = False
            .StatusBar = False
            .TheaterMode = False
            .Top = 49
            .Width = 240
        End With
        With Label4
            .Top = 318
            .Left = 66
            .Height = 24
            .Width = 432
            .AutoSize = False
            .WordWrap = True
            .BackStyle = fmBackStyleTransparent
            .BorderStyle = fmBorderStyleSingle
            .BorderColor = vbWhite
            .Caption = " URL: "
            .Font.Bold = False
            .ForeColor = &H808000
            .TextAlign = fmTextAlignLeft
            .SpecialEffect = fmSpecialEffectFlat
        End With
    End With
End Sub
Private Sub VeriTabanıDüzenle()

    On Error Resume Next
    Bellek(1, 1) = "": Bellek(1, 2) = "A": Bellek(1, 3) = ""
    Bellek(2, 1) = "": Bellek(2, 2) = "B": Bellek(2, 3) = ""
    Bellek(3, 1) = "": Bellek(3, 2) = "C": Bellek(3, 3) = ""
    Bellek(4, 1) = "": Bellek(4, 2) = "D": Bellek(4, 3) = ""
    Bellek(5, 1) = "": Bellek(5, 2) = "E": Bellek(5, 3) = ""
    Bellek(6, 1) = "": Bellek(6, 2) = "F": Bellek(6, 3) = ""
    Bellek(7, 1) = "": Bellek(7, 2) = "G": Bellek(7, 3) = ""
    Bellek(8, 1) = "": Bellek(8, 2) = "H": Bellek(8, 3) = ""
    Bellek(9, 1) = "": Bellek(9, 2) = "I": Bellek(9, 3) = ""
    Bellek(10, 1) = "": Bellek(10, 2) = "J": Bellek(10, 3) = ""
    Bellek(11, 1) = "": Bellek(11, 2) = "K": Bellek(11, 3) = ""
    Bellek(12, 1) = "": Bellek(12, 2) = "L": Bellek(12, 3) = ""
    Bellek(13, 1) = "": Bellek(13, 2) = "M": Bellek(13, 3) = ""
    Bellek(14, 1) = "": Bellek(14, 2) = "N": Bellek(14, 3) = ""
    Bellek(15, 1) = "": Bellek(15, 2) = "O": Bellek(15, 3) = ""
    Bellek(16, 1) = "": Bellek(16, 2) = "P": Bellek(16, 3) = ""
    Bellek(17, 1) = "": Bellek(17, 2) = "Q": Bellek(17, 3) = ""
    Bellek(18, 1) = "": Bellek(18, 2) = "R": Bellek(18, 3) = ""
    Bellek(19, 1) = "": Bellek(19, 2) = "S": Bellek(19, 3) = ""
    Bellek(20, 1) = "": Bellek(20, 2) = "T": Bellek(20, 3) = ""
    Bellek(21, 1) = "": Bellek(21, 2) = "U": Bellek(21, 3) = ""
    Bellek(22, 1) = "": Bellek(22, 2) = "V": Bellek(22, 3) = ""
    Bellek(23, 1) = "": Bellek(23, 2) = "W": Bellek(23, 3) = ""
    Bellek(24, 1) = "": Bellek(24, 2) = "X": Bellek(24, 3) = ""
    Bellek(25, 1) = "": Bellek(25, 2) = "Y": Bellek(25, 3) = ""
    Bellek(26, 1) = "": Bellek(26, 2) = "Z": Bellek(26, 3) = ""
    Bellek(27, 1) = "A": Bellek(27, 2) = "AFGHANISTAN": Bellek(27, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkouzOkqFI/AAAAAAAACIE/Jmp7rGf2LfQ/s1600-h/Afghanistan.png"
    Bellek(28, 1) = "A": Bellek(28, 2) = "AFRICAN UNION": Bellek(28, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkooU3DkHI/AAAAAAAACH8/CaAMsV5GbUE/s1600-h/African-Union.png"
    Bellek(29, 1) = "A": Bellek(29, 2) = "ALBANIA": Bellek(29, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkoiLfjEjI/AAAAAAAACH0/oUWU09Zq3uw/s1600-h/Albania.png"
    Bellek(30, 1) = "A": Bellek(30, 2) = "ALGERIA": Bellek(30, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkocWpdNjI/AAAAAAAACHs/28izjF9VNDc/s1600-h/Algeria.png"
    Bellek(31, 1) = "A": Bellek(31, 2) = "AMERICAN SAMOA": Bellek(31, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkoV2pGDUI/AAAAAAAACHk/kYEWT1WXxZE/s1600-h/American-Samoa.png"
    Bellek(32, 1) = "A": Bellek(32, 2) = "ANDORRA": Bellek(32, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkoPt1pxuI/AAAAAAAACHc/mL_huoeRE5I/s1600-h/Andorra.png"
    Bellek(33, 1) = "A": Bellek(33, 2) = "ANGOLA": Bellek(33, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkoJl9U9RI/AAAAAAAACHU/VKWov2xXsm0/s1600-h/Angola.png"
    Bellek(34, 1) = "A": Bellek(34, 2) = "ANGUILLA": Bellek(34, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkoEJ9QYtI/AAAAAAAACHM/lLB2Ay8ocaY/s1600-h/Anguilla.png"
    Bellek(35, 1) = "A": Bellek(35, 2) = "ANTARCTICA": Bellek(35, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szkn-M27u9I/AAAAAAAACHE/c4QSGeKJ2bM/s1600-h/Antarctica.png"
    Bellek(36, 1) = "A": Bellek(36, 2) = "ANTIGUA & BARBUDA": Bellek(36, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szkn2NIOPGI/AAAAAAAACG8/cKBHiF9mSYM/s1600-h/Antigua-%26-Barbuda.png"
    Bellek(37, 1) = "A": Bellek(37, 2) = "ARAB LEAGUE": Bellek(37, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szknu6ErSUI/AAAAAAAACG0/97B4jDd5Z7I/s1600-h/Arab-League.png"
    Bellek(38, 1) = "A": Bellek(38, 2) = "ARGENTINA": Bellek(38, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkno7tZABI/AAAAAAAACGs/k8y6CmTDUSE/s1600-h/Argentina.png"
    Bellek(39, 1) = "A": Bellek(39, 2) = "ARMENIA": Bellek(39, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkniLSeezI/AAAAAAAACGk/U9IGXRcLNIs/s1600-h/Armenia.png"
    Bellek(40, 1) = "A": Bellek(40, 2) = "ARUBA": Bellek(40, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzknbuvnkLI/AAAAAAAACGc/3FrUzHRducE/s1600-h/Aruba.png"
    Bellek(41, 1) = "A": Bellek(41, 2) = "ASEAN": Bellek(41, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzknVyc7B_I/AAAAAAAACGU/j_6ZBJDQtXA/s1600-h/ASEAN.png"
    Bellek(42, 1) = "A": Bellek(42, 2) = "AUSTRALIA": Bellek(42, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzknM81UpXI/AAAAAAAACGM/i1OG5tiQ-Ic/s1600-h/Australia.png"
    Bellek(43, 1) = "A": Bellek(43, 2) = "AUSTRIA": Bellek(43, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzknFDyNfUI/AAAAAAAACGE/1QZPclvnJDo/s1600-h/Austria.png"
    Bellek(44, 1) = "A": Bellek(44, 2) = "AZERBAIJAN": Bellek(44, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szkm_dNEdBI/AAAAAAAACF8/wnLfFTveJ8o/s1600-h/Azerbaijan.png"
    Bellek(45, 1) = "B": Bellek(45, 2) = "BAHRAIN": Bellek(45, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szkm5fjkLyI/AAAAAAAACF0/HSMrdBjCKBg/s1600-h/Bahrain.png"
    Bellek(46, 1) = "B": Bellek(46, 2) = "BANGLADESH": Bellek(46, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkmzWOziWI/AAAAAAAACFs/CitO5zhkQa8/s1600-h/Bangladesh.png"
    Bellek(47, 1) = "B": Bellek(47, 2) = "BARBADOS": Bellek(47, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkmtqouC9I/AAAAAAAACFk/OteHiqBBcbk/s1600-h/Barbados.png"
    Bellek(48, 1) = "B": Bellek(48, 2) = "BELARUS": Bellek(48, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkmm79dLOI/AAAAAAAACFc/n3mrFtq0pyY/s1600-h/Belarus.png"
    Bellek(49, 1) = "B": Bellek(49, 2) = "BELGIUM": Bellek(49, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkmfnJUDMI/AAAAAAAACFU/v44qr7JfobA/s1600-h/Belgium.png"
    Bellek(50, 1) = "B": Bellek(50, 2) = "BELIZE": Bellek(50, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkmZ5dbSPI/AAAAAAAACFM/5xDbRhHjl_w/s1600-h/Belize.png"
    Bellek(51, 1) = "B": Bellek(51, 2) = "BENIN": Bellek(51, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkmTZtBvFI/AAAAAAAACFE/NBzyRCYspjg/s1600-h/Benin.png"
    Bellek(52, 1) = "B": Bellek(52, 2) = "BERMUDA": Bellek(52, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkmNa-floI/AAAAAAAACE8/6jceHBzDGms/s1600-h/Bermuda.png"
    Bellek(53, 1) = "B": Bellek(53, 2) = "BHUTAN": Bellek(53, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkl78vxc7I/AAAAAAAACE0/JksbX2d_C7o/s1600-h/Bhut%D0%B0n.png"
    Bellek(54, 1) = "B": Bellek(54, 2) = "BOLIVIA": Bellek(54, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szkl1ZYN6XI/AAAAAAAACEs/-Mfy1pjq6Vo/s1600-h/Bolivia.png"
    Bellek(55, 1) = "B": Bellek(55, 2) = "BOSNIA HERZEGOVINA": Bellek(55, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkluoWKMvI/AAAAAAAACEk/ic_1LNx-Y-Y/s1600-h/Bosnia-Herzegovina.png"
    Bellek(56, 1) = "B": Bellek(56, 2) = "BOTSWANA": Bellek(56, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkloaQZltI/AAAAAAAACEc/XbFHb93fUJo/s1600-h/Botswana.png"
    Bellek(57, 1) = "B": Bellek(57, 2) = "BRAZIL": Bellek(57, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzklbEXdrwI/AAAAAAAACEU/KEAaQQ0Q65w/s1600-h/Brazil.png"
    Bellek(58, 1) = "B": Bellek(58, 2) = "BRITISH INDIAN OCEAN TERRIT": Bellek(58, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzklSJDSXLI/AAAAAAAACEM/vH70IAh5-MA/s1600-h/British-Indian-Ocean-Territ.png"
    Bellek(59, 1) = "B": Bellek(59, 2) = "BRITISH VIRGIN ISLANDS": Bellek(59, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzklKh7qkfI/AAAAAAAACEE/YxnLX-WJtKQ/s1600-h/British-Virgin-Islands.png"
    Bellek(60, 1) = "B": Bellek(60, 2) = "BRUNEI": Bellek(60, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzklEiAl7PI/AAAAAAAACD8/kcOCUiTmIk4/s1600-h/Brunei.png"
    Bellek(61, 1) = "B": Bellek(61, 2) = "BULGARIA": Bellek(61, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szkk-HEyuxI/AAAAAAAACD0/yo3NxAHNVn0/s1600-h/Bulgaria.png"
    Bellek(62, 1) = "B": Bellek(62, 2) = "BURKINA FASO": Bellek(62, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkk3YRfbmI/AAAAAAAACDs/EnZbOeBiq8U/s1600-h/Burkina-Faso.png"
    Bellek(63, 1) = "B": Bellek(63, 2) = "BURUNDI": Bellek(63, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkkxXZ23_I/AAAAAAAACDk/yBEIrHyypUs/s1600-h/Burundi.png"
    Bellek(64, 1) = "C": Bellek(64, 2) = "CAMBODIA": Bellek(64, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkkqxBzvEI/AAAAAAAACDc/_GVRGsR6VpU/s1600-h/Cambodia.png"
    Bellek(65, 1) = "C": Bellek(65, 2) = "CAMEROON": Bellek(65, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szkkkd0xteI/AAAAAAAACDU/l8oW3dEZDFg/s1600-h/Cameroon.png"
    Bellek(66, 1) = "C": Bellek(66, 2) = "CANADA": Bellek(66, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szkker3TTvI/AAAAAAAACDM/NUWjqnbGcp4/s1600-h/Canada.png"
    Bellek(67, 1) = "C": Bellek(67, 2) = "CAPE VERDE": Bellek(67, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkkXpGVr4I/AAAAAAAACDE/RSRwj3av6pY/s1600-h/Cape-Verde.png"
    Bellek(68, 1) = "C": Bellek(68, 2) = "CARICOM": Bellek(68, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkkQ8V5o5I/AAAAAAAACC8/6IyqDO7-1io/s1600-h/CARICOM.png"
    Bellek(69, 1) = "C": Bellek(69, 2) = "CAYMAN ISLANDS": Bellek(69, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkkKP_us0I/AAAAAAAACC0/bCbQnJUkfPE/s1600-h/Cayman-Islands.png"
    Bellek(70, 1) = "C": Bellek(70, 2) = "CENTRAL AFRICAN REPUBLIC": Bellek(70, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkkC9Xd-tI/AAAAAAAACCs/9oaNYeqeZMg/s1600-h/Central-African-Republic.png"
    Bellek(71, 1) = "C": Bellek(71, 2) = "CHAD": Bellek(71, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szkj8llcdtI/AAAAAAAACCk/Rwsa3Ev0EgY/s1600-h/Chad.png"
    Bellek(72, 1) = "C": Bellek(72, 2) = "CHILE": Bellek(72, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szkjpx7ecVI/AAAAAAAACCc/LVDJUI1wgis/s1600-h/Chile.png"
    Bellek(73, 1) = "C": Bellek(73, 2) = "CHINA": Bellek(73, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkjizccnmI/AAAAAAAACCU/dEBMy3FF6nM/s1600-h/China.png"
    Bellek(74, 1) = "C": Bellek(74, 2) = "CHRISTMAS ISLAND": Bellek(74, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkjbvbC_WI/AAAAAAAACCM/U_r_mOCWjtM/s1600-h/Christmas-Island.png"
    Bellek(75, 1) = "C": Bellek(75, 2) = "CIS": Bellek(75, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkjVTpRWZI/AAAAAAAACCE/r0o1D5Pj93g/s1600-h/CIS.png"
    Bellek(76, 1) = "C": Bellek(76, 2) = "COCOS ISLANDS": Bellek(76, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkjOb3EfiI/AAAAAAAACB8/SnqD_vmb1nM/s1600-h/Cocos-Islands.png"
    Bellek(77, 1) = "C": Bellek(77, 2) = "COLOMBIA": Bellek(77, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkjIe_9pFI/AAAAAAAACB0/Xk1AlUZRWA0/s1600-h/Colombia.png"
    Bellek(78, 1) = "C": Bellek(78, 2) = "COMMONWEALTH": Bellek(78, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkjCF6B9_I/AAAAAAAACBs/jO62IrKmTB4/s1600-h/Commonwealth.png"
    Bellek(79, 1) = "C": Bellek(79, 2) = "COMOROS": Bellek(79, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szki7GbwuYI/AAAAAAAACBk/ieUo3DGNt0k/s1600-h/Comoros.png"
    Bellek(80, 1) = "C": Bellek(80, 2) = "CONGO BRAZZAVILLE": Bellek(80, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkizwlSUAI/AAAAAAAACBc/jJYR-qI2XKo/s1600-h/Congo-Brazzaville.png"
    Bellek(81, 1) = "C": Bellek(81, 2) = "CONGO KINSHASA": Bellek(81, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkisL9QfRI/AAAAAAAACBU/Y8AFSlrvlzk/s1600-h/Congo-Kinshasa.png"
    Bellek(82, 1) = "C": Bellek(82, 2) = "COOK ISLANDS": Bellek(82, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkikWMez1I/AAAAAAAACBM/AqcORe2l40k/s1600-h/Cook-Islands.png"
    Bellek(83, 1) = "C": Bellek(83, 2) = "COSTA RICA": Bellek(83, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkicAkTl_I/AAAAAAAACBE/UIyqX74IGmY/s1600-h/Costa-Rica.png"
    Bellek(84, 1) = "C": Bellek(84, 2) = "COTE DIVOIRE": Bellek(84, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkiVB_SnrI/AAAAAAAACA8/tmjF4flaM7Q/s1600-h/Cote-dIvoire.png"
    Bellek(85, 1) = "C": Bellek(85, 2) = "CROATIA": Bellek(85, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkiPaan40I/AAAAAAAACA0/fqzcFzjfYJ4/s1600-h/Croatia.png"
    Bellek(86, 1) = "C": Bellek(86, 2) = "CUBA": Bellek(86, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkiJYxPaqI/AAAAAAAACAs/59ahfF8qN-s/s1600-h/Cuba.png"
    Bellek(87, 1) = "C": Bellek(87, 2) = "CYPRUS": Bellek(87, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkhzQCLuzI/AAAAAAAACAk/wN9LtPEm7BY/s1600-h/Cyprus.png"
    Bellek(88, 1) = "C": Bellek(88, 2) = "CZECH REPUBLIC": Bellek(88, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkhseEPZbI/AAAAAAAACAc/1wXgnSsynoE/s1600-h/Czech-Republic.png"
    Bellek(89, 1) = "D": Bellek(89, 2) = "DENMARK": Bellek(89, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkhmDyQvGI/AAAAAAAACAU/jFJWfy5kanc/s1600-h/Denmark.png"
    Bellek(90, 1) = "D": Bellek(90, 2) = "DJIBOUTI": Bellek(90, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkhfH8I6vI/AAAAAAAACAM/H4oTkWyOl_M/s1600-h/Djibouti.png"
    Bellek(91, 1) = "D": Bellek(91, 2) = "DOMINICA": Bellek(91, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkhYh8eDAI/AAAAAAAACAE/Hack30qa2Co/s1600-h/Dominica.png"
    Bellek(92, 1) = "D": Bellek(92, 2) = "DOMINICAN REPUBLIC": Bellek(92, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkhROnU67I/AAAAAAAAB_8/39IxwIWHu_c/s1600-h/Dominican-Republic.png"
    Bellek(93, 1) = "E": Bellek(93, 2) = "EAST TIMOR": Bellek(93, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkhJpqBTzI/AAAAAAAAB_0/BYJjBr7T8RU/s1600-h/East-Timor.png"
    Bellek(94, 1) = "E": Bellek(94, 2) = "ECUADOR": Bellek(94, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkhDfIOs-I/AAAAAAAAB_s/grtskXmd4Rg/s1600-h/Ecuador.png"
    Bellek(95, 1) = "E": Bellek(95, 2) = "EGYPT": Bellek(95, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkg8YeXMOI/AAAAAAAAB_k/tL8CH-XRt9U/s1600-h/Egypt.png"
    Bellek(96, 1) = "E": Bellek(96, 2) = "EL SALVADOR": Bellek(96, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkg065RHXI/AAAAAAAAB_c/YlaSApgY7ZQ/s1600-h/El-Salvador.png"
    Bellek(97, 1) = "E": Bellek(97, 2) = "ENGLAND": Bellek(97, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkguuEhmFI/AAAAAAAAB_U/CgzYVRcb6hg/s1600-h/England.png"
    Bellek(98, 1) = "E": Bellek(98, 2) = "EQUATORIAL GUINEA": Bellek(98, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkgnXbPwPI/AAAAAAAAB_M/GA_m0MYzloM/s1600-h/Equatorial-Guinea.png"
    Bellek(99, 1) = "E": Bellek(99, 2) = "ERITREA": Bellek(99, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkggvO76bI/AAAAAAAAB_E/W7NRjkTA2c8/s1600-h/Eritrea.png"
    Bellek(100, 1) = "E": Bellek(100, 2) = "ESTONIA": Bellek(100, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkgantAscI/AAAAAAAAB-8/gNTXS5LrTM8/s1600-h/Estonia.png"
    Bellek(101, 1) = "E": Bellek(101, 2) = "ETHIOPIA": Bellek(101, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkgUpjq2nI/AAAAAAAAB-0/VM1STekqpQg/s1600-h/Ethiopia.png"
    Bellek(102, 1) = "E": Bellek(102, 2) = "EUROPEAN UNION": Bellek(102, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkgFKxHfZI/AAAAAAAAB-s/376jPMsFpe0/s1600-h/European-Union.png"
    Bellek(103, 1) = "F": Bellek(103, 2) = "FALKLAND ISLANDS": Bellek(103, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkf9St7T5I/AAAAAAAAB-k/4mF4vV1tP4Y/s1600-h/Falkland-Islands.png"
    Bellek(104, 1) = "F": Bellek(104, 2) = "FAROE ISLANDS": Bellek(104, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkf2WQTp0I/AAAAAAAAB-c/MY_lF3cDoiE/s1600-h/Faroe-Islands.png"
    Bellek(105, 1) = "F": Bellek(105, 2) = "FIJI": Bellek(105, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkfvhVQXmI/AAAAAAAAB-U/uhLA9l8zgpg/s1600-h/Fiji.png"
    Bellek(106, 1) = "F": Bellek(106, 2) = "FINLAND": Bellek(106, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkfpST5U_I/AAAAAAAAB-M/eVHUHBsizZU/s1600-h/Finland.png"
    Bellek(107, 1) = "F": Bellek(107, 2) = "FRANCE": Bellek(107, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkfhu3SzfI/AAAAAAAAB-E/G-dOPUatcuA/s1600-h/France.png"
    Bellek(108, 1) = "F": Bellek(108, 2) = "FRENCH GUIANA": Bellek(108, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkfapnu1ZI/AAAAAAAAB98/BABUur6e-L4/s1600-h/French-Guiana.png"
    Bellek(109, 1) = "F": Bellek(109, 2) = "FRENCH POLYNESIA": Bellek(109, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkfToEbodI/AAAAAAAAB90/alBHTBcghIM/s1600-h/French-Polynesia.png"
    Bellek(110, 1) = "F": Bellek(110, 2) = "FRENCH SOUTHERN & ANTARCTIC": Bellek(110, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkfJNkOZ_I/AAAAAAAAB9s/YHgbKBDlPXI/s1600-h/French-Southern-%26-Antarctic.png"
    Bellek(111, 1) = "G": Bellek(111, 2) = "GABON": Bellek(111, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkfB1PMHtI/AAAAAAAAB9k/uabcgDOQJOQ/s1600-h/Gabon.png"
    Bellek(112, 1) = "G": Bellek(112, 2) = "GAMBIA": Bellek(112, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szke6VAUT7I/AAAAAAAAB9c/W-mEgxw1jJM/s1600-h/Gambia.png"
    Bellek(113, 1) = "G": Bellek(113, 2) = "GEORGIA": Bellek(113, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szke0Cg8CeI/AAAAAAAAB9U/oGjZvfWpjMM/s1600-h/Georgia.png"
    Bellek(114, 1) = "G": Bellek(114, 2) = "GERMANY": Bellek(114, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkeuRs854I/AAAAAAAAB9M/-SWPRhu3Mq4/s1600-h/Germany.png"
    Bellek(115, 1) = "G": Bellek(115, 2) = "GHANA": Bellek(115, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkeoB3FH1I/AAAAAAAAB9E/r1wfPAPPOZA/s1600-h/Ghana.png"
    Bellek(116, 1) = "G": Bellek(116, 2) = "GREECE": Bellek(116, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkehU-LSbI/AAAAAAAAB88/QMxnrbOvbWw/s1600-h/Greece.png"
    Bellek(117, 1) = "G": Bellek(117, 2) = "GREENLAND": Bellek(117, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkeYD4Hd-I/AAAAAAAAB80/C0gZ7VfcJgc/s1600-h/Greenland.png"
    Bellek(118, 1) = "G": Bellek(118, 2) = "GRENADA": Bellek(118, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkeRA1tesI/AAAAAAAAB8s/Za6iHL0_PbA/s1600-h/Grenada.png"
    Bellek(119, 1) = "G": Bellek(119, 2) = "GUADELOUPE": Bellek(119, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkeKSecrUI/AAAAAAAAB8k/rVlUW6CHFBQ/s1600-h/Guadeloupe.png"
    Bellek(120, 1) = "G": Bellek(120, 2) = "GUAM": Bellek(120, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkeEcFRCVI/AAAAAAAAB8c/wkdUFcLbAWc/s1600-h/Guam.png"
    Bellek(121, 1) = "G": Bellek(121, 2) = "GUATEMALA": Bellek(121, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szkd-LpfXwI/AAAAAAAAB8U/UlbDTCxElUY/s1600-h/Guatemala.png"
    Bellek(122, 1) = "G": Bellek(122, 2) = "GUINEA": Bellek(122, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkd3ZejnqI/AAAAAAAAB8M/OYYWlgK3CsE/s1600-h/Guinea.png"
    Bellek(123, 1) = "G": Bellek(123, 2) = "GUINEA BISSAU": Bellek(123, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szkdwk2FDiI/AAAAAAAAB8E/sel1wLl2pVU/s1600-h/Guinea-Bissau.png"
    Bellek(124, 1) = "G": Bellek(124, 2) = "GUYANA": Bellek(124, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkdqWMUW6I/AAAAAAAAB78/8krZg8d5X2o/s1600-h/Guyana.png"
    Bellek(125, 1) = "H": Bellek(125, 2) = "HAITI": Bellek(125, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkdjzltx8I/AAAAAAAAB70/pp_EmWMGKto/s1600-h/Haiti.png"
    Bellek(126, 1) = "H": Bellek(126, 2) = "HONDURAS": Bellek(126, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szkddgkn6gI/AAAAAAAAB7s/0Wah7AMQ4Us/s1600-h/Honduras.png"
    Bellek(127, 1) = "H": Bellek(127, 2) = "HONG KONG": Bellek(127, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkdXXsNLDI/AAAAAAAAB7k/uQgvLT6J4iY/s1600-h/Hong-Kong.png"
    Bellek(128, 1) = "H": Bellek(128, 2) = "HUNGARY": Bellek(128, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkdRadhRpI/AAAAAAAAB7c/PHCfjTfE0W4/s1600-h/Hungary.png"
    Bellek(129, 1) = "I": Bellek(129, 2) = "ICELAND": Bellek(129, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkdLmevTuI/AAAAAAAAB7U/ejGBh211SHU/s1600-h/Iceland.png"
    Bellek(130, 1) = "I": Bellek(130, 2) = "INDIA": Bellek(130, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkdFOMbmhI/AAAAAAAAB7M/gC7dSuFWGCo/s1600-h/India.png"
    Bellek(131, 1) = "I": Bellek(131, 2) = "INDONESIA": Bellek(131, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szkc-zCwsFI/AAAAAAAAB7E/9urZ7KhVp4w/s1600-h/Indonesia.png"
    Bellek(132, 1) = "I": Bellek(132, 2) = "IRAN": Bellek(132, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkcqT7gksI/AAAAAAAAB68/VcYaSVERKNY/s1600-h/Iran.png"
    Bellek(133, 1) = "I": Bellek(133, 2) = "IRAQ": Bellek(133, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkckePzSnI/AAAAAAAAB60/dGI9qhlaDn0/s1600-h/Iraq.png"
    Bellek(134, 1) = "I": Bellek(134, 2) = "IRELAND": Bellek(134, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkcebdzJiI/AAAAAAAAB6s/gI9dfxL1zcE/s1600-h/Ireland.png"
    Bellek(135, 1) = "I": Bellek(135, 2) = "ISLAMIC CONFERENCE": Bellek(135, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkcXDZ03FI/AAAAAAAAB6k/5lrDAQFf_HQ/s1600-h/Islamic-Conference.png"
    Bellek(136, 1) = "I": Bellek(136, 2) = "ISRAEL": Bellek(136, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkcQA0ftWI/AAAAAAAAB6c/bwg9YcBviLU/s1600-h/Israel.png"
    Bellek(137, 1) = "I": Bellek(137, 2) = "ITALY": Bellek(137, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkcKAprcxI/AAAAAAAAB6U/Bq7XV83rMks/s1600-h/Italy.png"
    Bellek(138, 1) = "J": Bellek(138, 2) = "JAMAICA": Bellek(138, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkcEJmL9zI/AAAAAAAAB6M/ia7n7dpkKd4/s1600-h/Jamaica.png"
    Bellek(139, 1) = "J": Bellek(139, 2) = "JAPAN": Bellek(139, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkb8UwfjGI/AAAAAAAAB6E/s4Rp2l1qnBw/s1600-h/Japan.png"
    Bellek(140, 1) = "J": Bellek(140, 2) = "JORDAN": Bellek(140, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szkb2mf7lHI/AAAAAAAAB58/Ht8_vtE13Kg/s1600-h/Jordan.png"
    Bellek(141, 1) = "K": Bellek(141, 2) = "KAZAKHSTAN": Bellek(141, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkbwsZBzsI/AAAAAAAAB50/DmvndUvGHs4/s1600-h/Kazakhstan.png"
    Bellek(142, 1) = "K": Bellek(142, 2) = "KENYA": Bellek(142, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szkbo0i416I/AAAAAAAAB5s/Heqz8sDx78w/s1600-h/Kenya.png"
    Bellek(143, 1) = "K": Bellek(143, 2) = "KIRIBATI": Bellek(143, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szkbhug2-2I/AAAAAAAAB5k/4Q8WHgW0ark/s1600-h/Kiribati.png"
    Bellek(144, 1) = "K": Bellek(144, 2) = "KUWAIT": Bellek(144, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkbbPEPTRI/AAAAAAAAB5c/X2Q18oDOelQ/s1600-h/Kuwait.png"
    Bellek(145, 1) = "K": Bellek(145, 2) = "KYRGYZSTAN": Bellek(145, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkbU1zemII/AAAAAAAAB5U/TyjQn9Vaiho/s1600-h/Kyrgyzstan.png"
    Bellek(146, 1) = "L": Bellek(146, 2) = "LAOS": Bellek(146, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkbNwMLznI/AAAAAAAAB5M/2thuTfF6-mc/s1600-h/Laos.png"
    Bellek(147, 1) = "L": Bellek(147, 2) = "LATVIA": Bellek(147, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkbBEykGgI/AAAAAAAAB5E/D6cUA0cOwpc/s1600-h/Latvia.png"
    Bellek(148, 1) = "L": Bellek(148, 2) = "LEBANON": Bellek(148, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szka6nl1ZAI/AAAAAAAAB48/m8Be1dfhZKA/s1600-h/Lebanon.png"
    Bellek(149, 1) = "L": Bellek(149, 2) = "LESOTHO": Bellek(149, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkazmkMQUI/AAAAAAAAB40/XG1b3XSpzpI/s1600-h/Lesotho.png"
    Bellek(150, 1) = "L": Bellek(150, 2) = "LIBERIA": Bellek(150, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkasQBsgXI/AAAAAAAAB4s/wcfXvsGdQxI/s1600-h/Liberia.png"
    Bellek(151, 1) = "L": Bellek(151, 2) = "LIBYA": Bellek(151, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkalNLF49I/AAAAAAAAB4k/GghezYNravg/s1600-h/Libya.png"
    Bellek(152, 1) = "L": Bellek(152, 2) = "LIECHTENSTEIN": Bellek(152, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkaeCe9sNI/AAAAAAAAB4c/jH7P2sAXzKU/s1600-h/Liechtenstein.png"
    Bellek(153, 1) = "L": Bellek(153, 2) = "LITHUANIA": Bellek(153, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkaW0ozJCI/AAAAAAAAB4U/Cqq3jeQ6blI/s1600-h/Lithuania.png"
    Bellek(154, 1) = "L": Bellek(154, 2) = "LUXEMBOURG": Bellek(154, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkaQBCN7uI/AAAAAAAAB4M/7D7jN6qlPDY/s1600-h/Luxembourg.png"
    Bellek(155, 1) = "M": Bellek(155, 2) = "MACAU": Bellek(155, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkaIgOEbcI/AAAAAAAAB4E/f9eSa0x-Bnw/s1600-h/Macau.png"
    Bellek(156, 1) = "M": Bellek(156, 2) = "MACEDONIA": Bellek(156, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkaBg-1_JI/AAAAAAAAB38/yjTxsrPKRq8/s1600-h/Macedonia.png"
    Bellek(157, 1) = "M": Bellek(157, 2) = "MADAGASCAR": Bellek(157, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkZ5wQ-ibI/AAAAAAAAB30/3hy9KPU4ivQ/s1600-h/Madagascar.png"
    Bellek(158, 1) = "M": Bellek(158, 2) = "MALAWI": Bellek(158, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkZw2nD-8I/AAAAAAAAB3s/GiGX8zNDJ-M/s1600-h/Malawi.png"
    Bellek(159, 1) = "M": Bellek(159, 2) = "MALAYSIA": Bellek(159, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkZi6gLrGI/AAAAAAAAB3k/CR2wxHe-D5s/s1600-h/Malaysia.png"
    Bellek(160, 1) = "M": Bellek(160, 2) = "MALDIVES": Bellek(160, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkZbm_EXpI/AAAAAAAAB3c/RUX0WM6uaXE/s1600-h/Maldives.png"
    Bellek(161, 1) = "M": Bellek(161, 2) = "MALI": Bellek(161, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkZT-sTSZI/AAAAAAAAB3U/Dpf9caioUmI/s1600-h/Mali.png"
    Bellek(162, 1) = "M": Bellek(162, 2) = "MALTA": Bellek(162, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkBe2wUs4I/AAAAAAAAB3M/qVuv2TEdUcw/s1600-h/Malta.png"
    Bellek(163, 1) = "M": Bellek(163, 2) = "MARSHALL ISLANDS": Bellek(163, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkBXSQ9ViI/AAAAAAAAB3E/5dY6XEx28Hw/s1600-h/Marshall-Islands.png"
    Bellek(164, 1) = "M": Bellek(164, 2) = "MARTINIQUE": Bellek(164, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkBRUSfwaI/AAAAAAAAB28/T0SlpcBShsE/s1600-h/Martinique.png"
    Bellek(165, 1) = "M": Bellek(165, 2) = "MAURITANIA": Bellek(165, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkBLJJLUjI/AAAAAAAAB20/1OPGJatYirI/s1600-h/Mauritania.png"
    Bellek(166, 1) = "M": Bellek(166, 2) = "MAURITIUS": Bellek(166, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkBEMyxnwI/AAAAAAAAB2s/wm04VAp2s5o/s1600-h/Mauritius.png"
    Bellek(167, 1) = "M": Bellek(167, 2) = "MAYOTTE": Bellek(167, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzkA8y8ZOTI/AAAAAAAAB2k/boK-eSFD5qM/s1600-h/Mayotte.png"
    Bellek(168, 1) = "M": Bellek(168, 2) = "MEXICO": Bellek(168, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkA2UW-XpI/AAAAAAAAB2c/DIt4wv7Lgjw/s1600-h/Mexico.png"
    Bellek(169, 1) = "M": Bellek(169, 2) = "MICRONESIA": Bellek(169, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkAveFIJ-I/AAAAAAAAB2U/6jyvXX_OWJk/s1600-h/Micronesia.png"
    Bellek(170, 1) = "M": Bellek(170, 2) = "MOLDOVA": Bellek(170, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzkAoYQdeOI/AAAAAAAAB2M/lWD6qec27eo/s1600-h/Moldova.png"
    Bellek(171, 1) = "M": Bellek(171, 2) = "MONACO": Bellek(171, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkAgplJQ_I/AAAAAAAAB2E/g-StDceZcfM/s1600-h/Monaco.png"
    Bellek(172, 1) = "M": Bellek(172, 2) = "MONGOLIA": Bellek(172, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkAZ6MmLOI/AAAAAAAAB18/zqGwJ5MmNak/s1600-h/Mongolia.png"
    Bellek(173, 1) = "M": Bellek(173, 2) = "MOROCCO": Bellek(173, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzkANSt2qAI/AAAAAAAAB10/NrCe1IDQXCQ/s1600-h/Morocco.png"
    Bellek(174, 1) = "M": Bellek(174, 2) = "MOZAMBIQUE": Bellek(174, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzkAFuMjtdI/AAAAAAAAB1s/aBMIMerzO4Q/s1600-h/Mozambique.png"
    Bellek(175, 1) = "M": Bellek(175, 2) = "MYANMAR": Bellek(175, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj_94zcM-I/AAAAAAAAB1k/eILxvXQvK7U/s1600-h/Myanmar.png"
    Bellek(176, 1) = "N": Bellek(176, 2) = "NAMIBIA": Bellek(176, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj_21W7VOI/AAAAAAAAB1c/2gSDJpMqNhU/s1600-h/Namibia.png"
    Bellek(177, 1) = "N": Bellek(177, 2) = "NATO": Bellek(177, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj_ggJeIdI/AAAAAAAAB1U/QjXLH9npq84/s1600-h/NATO.png"
    Bellek(178, 1) = "N": Bellek(178, 2) = "NAURU": Bellek(178, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj_YWmaL7I/AAAAAAAAB1M/wXg8DLdO44o/s1600-h/Nauru.png"
    Bellek(179, 1) = "N": Bellek(179, 2) = "NEPAL": Bellek(179, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj_QwqkjiI/AAAAAAAAB1E/AuqTF-RVXqA/s1600-h/Nepal.png"
    Bellek(180, 1) = "N": Bellek(180, 2) = "NETHERLANDS": Bellek(180, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj_J04kqrI/AAAAAAAAB08/eVg4QR5Q7xQ/s1600-h/Netherlands.png"
    Bellek(181, 1) = "N": Bellek(181, 2) = "NETHERLANDS ANTILLES": Bellek(181, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj_BTn5SlI/AAAAAAAAB00/CW7iFN_eCKE/s1600-h/Netherlands-Antilles.png"
    Bellek(182, 1) = "N": Bellek(182, 2) = "NEW CALEDONIA": Bellek(182, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj-4JoNaWI/AAAAAAAAB0s/hxOYTahqPp4/s1600-h/New-Caledonia.png"
    Bellek(183, 1) = "N": Bellek(183, 2) = "NEW ZEALAND": Bellek(183, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj-wW5V72I/AAAAAAAAB0k/UN1HqHHTPMM/s1600-h/New-Zealand.png"
    Bellek(184, 1) = "N": Bellek(184, 2) = "NICARAGUA": Bellek(184, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj-pbf_B2I/AAAAAAAAB0c/HxaZ7kza690/s1600-h/Nicaragua.png"
    Bellek(185, 1) = "N": Bellek(185, 2) = "NIGER": Bellek(185, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj-i3lgL-I/AAAAAAAAB0U/RBSIcaVK_Ws/s1600-h/Niger.png"
    Bellek(186, 1) = "N": Bellek(186, 2) = "NIGERIA": Bellek(186, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj-cYo-yNI/AAAAAAAAB0M/N_b45nGVfV8/s1600-h/Nigeria.png"
    Bellek(187, 1) = "N": Bellek(187, 2) = "NIUE": Bellek(187, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj-V4jKR8I/AAAAAAAAB0E/_acPUkFppH4/s1600-h/Niue.png"
    Bellek(188, 1) = "N": Bellek(188, 2) = "NORDIC COUNCIL": Bellek(188, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj-Ly_ryJI/AAAAAAAABz8/2jiGWkPwF7w/s1600-h/Nordic-Council.png"
    Bellek(189, 1) = "N": Bellek(189, 2) = "NORFOLK ISLAND": Bellek(189, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj-ECKW9BI/AAAAAAAABz0/zQlQBtP_IvE/s1600-h/Norfolk-Island.png"
    Bellek(190, 1) = "N": Bellek(190, 2) = "NORTH KOREA": Bellek(190, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj97kO2HkI/AAAAAAAABzs/mCh0U1bnzjI/s1600-h/North-Korea.png"
    Bellek(191, 1) = "N": Bellek(191, 2) = "NORWAY": Bellek(191, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj91e0gvmI/AAAAAAAABzk/pXfm4sdDW9w/s1600-h/Norway.png"
    Bellek(192, 1) = "O": Bellek(192, 2) = "OAS": Bellek(192, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj9pbI4fzI/AAAAAAAABzc/TZYh0XTZNzY/s1600-h/OAS.png"
    Bellek(193, 1) = "O": Bellek(193, 2) = "OLYMPIC": Bellek(193, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj9ie1YfdI/AAAAAAAABzU/86adiHDtmNQ/s1600-h/Olympic.png"
    Bellek(194, 1) = "O": Bellek(194, 2) = "OMAN": Bellek(194, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj9ZOWSJNI/AAAAAAAABzM/IUPRQHHzHPI/s1600-h/Oman.png"
    Bellek(195, 1) = "O": Bellek(195, 2) = "OPEC": Bellek(195, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj9MyhWFJI/AAAAAAAABzE/6iCw9bgI9Nc/s1600-h/OPEC.png"
    Bellek(196, 1) = "P": Bellek(196, 2) = "PACIFIC COMMUNITY": Bellek(196, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj9FSRnlrI/AAAAAAAABy8/NADzakI54Os/s1600-h/Pacific-Community.png"
    Bellek(197, 1) = "P": Bellek(197, 2) = "PAKISTAN": Bellek(197, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj8-emUAMI/AAAAAAAABy0/YYHg55UNqf4/s1600-h/Pakistan.png"
    Bellek(198, 1) = "P": Bellek(198, 2) = "PALAU": Bellek(198, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj83V48C7I/AAAAAAAABys/lqLd92pchbE/s1600-h/Palau.png"
    Bellek(199, 1) = "P": Bellek(199, 2) = "PALESTINE": Bellek(199, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj8vkbiQwI/AAAAAAAAByk/9V7YT2eTWY4/s1600-h/Palestine.png"
    Bellek(200, 1) = "P": Bellek(200, 2) = "PANAMA": Bellek(200, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj8pLoCI0I/AAAAAAAAByc/E4lW9QTc-R4/s1600-h/Panama.png"
    Bellek(201, 1) = "P": Bellek(201, 2) = "PAPUA NEW GUINEA": Bellek(201, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj8guQl-LI/AAAAAAAAByU/0Fbm0e6YIro/s1600-h/Papua-New-Guinea.png"
    Bellek(202, 1) = "P": Bellek(202, 2) = "PARAGUAY": Bellek(202, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj8aNosSYI/AAAAAAAAByM/Hnbh5iPB3q0/s1600-h/Paraguay.png"
    Bellek(203, 1) = "P": Bellek(203, 2) = "PERU": Bellek(203, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj8T7Dk51I/AAAAAAAAByE/nrWjpHp1sYA/s1600-h/Peru.png"
    Bellek(204, 1) = "P": Bellek(204, 2) = "PHILIPPINES": Bellek(204, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj8D4bVLVI/AAAAAAAABx8/zNoFHCj3TDM/s1600-h/Philippines.png"
    Bellek(205, 1) = "P": Bellek(205, 2) = "PITCAIRN ISLANDS": Bellek(205, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj77FEtEiI/AAAAAAAABx0/4O3kdX0Hqr8/s1600-h/Pitcairn-Islands.png"
    Bellek(206, 1) = "P": Bellek(206, 2) = "POLAND": Bellek(206, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj7zmEsGoI/AAAAAAAABxs/QgyIFDIeYws/s1600-h/Poland.png"
    Bellek(207, 1) = "P": Bellek(207, 2) = "PORTUGAL": Bellek(207, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj7nQfQbnI/AAAAAAAABxk/-CbLSDdZ-TI/s1600-h/Portugal.png"
    Bellek(208, 1) = "P": Bellek(208, 2) = "PUERTO RICO": Bellek(208, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj7fxb6HTI/AAAAAAAABxc/xkaTmtRq1X4/s1600-h/Puerto-Rico.png"
    Bellek(209, 1) = "Q": Bellek(209, 2) = "QATAR": Bellek(209, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj7ZJvwJfI/AAAAAAAABxU/IjZ3LfAfgaI/s1600-h/Qatar.png"
    Bellek(210, 1) = "R": Bellek(210, 2) = "RED CROSS": Bellek(210, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj7REFwbFI/AAAAAAAABxM/GJ7uLkS6O3Y/s1600-h/Red-Cross.png"
    Bellek(211, 1) = "R": Bellek(211, 2) = "REUNION": Bellek(211, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj7J-d35CI/AAAAAAAABxE/YFVVLEYtj1A/s1600-h/Reunion.png"
    Bellek(212, 1) = "R": Bellek(212, 2) = "ROMANIA": Bellek(212, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj7CuNSEvI/AAAAAAAABw8/0MWkl93t1SM/s1600-h/Romania.png"
    Bellek(213, 1) = "R": Bellek(213, 2) = "RUSSIA": Bellek(213, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj68LOu6ZI/AAAAAAAABw0/C9Y5DKsR3TU/s1600-h/Russia.png"
    Bellek(214, 1) = "R": Bellek(214, 2) = "RWANDA": Bellek(214, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj61ZkYfyI/AAAAAAAABws/q15l2qWSIJ4/s1600-h/Rwanda.png"
    Bellek(215, 1) = "S": Bellek(215, 2) = "SAINT LUCIA": Bellek(215, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj6sV55L9I/AAAAAAAABwk/eJHBtdi7rYg/s1600-h/Saint-Lucia.png"
    Bellek(216, 1) = "S": Bellek(216, 2) = "SAMOA": Bellek(216, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj6lVH4C9I/AAAAAAAABwc/2xkpIGAvgc8/s1600-h/Samoa.png"
    Bellek(217, 1) = "S": Bellek(217, 2) = "SAN MARINO": Bellek(217, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj6dohqydI/AAAAAAAABwU/tUKyqAFQSZI/s1600-h/San-Marino.png"
    Bellek(218, 1) = "S": Bellek(218, 2) = "SAO TOME & PRINCIPE": Bellek(218, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj6Tmjlw7I/AAAAAAAABwM/eX2YiPaz97o/s1600-h/Sao-Tome-%26-Principe.png"
    Bellek(219, 1) = "S": Bellek(219, 2) = "SAUDI & ARABIA": Bellek(219, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj6LYfmrgI/AAAAAAAABwE/gtLTQjJ2byU/s1600-h/Saudi-Arabia.png"
    Bellek(220, 1) = "S": Bellek(220, 2) = "SCOTLAND": Bellek(220, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj6DwMsbPI/AAAAAAAABv8/fRs4rLVzaYY/s1600-h/Scotland.png"
    Bellek(221, 1) = "S": Bellek(221, 2) = "SENEGAL": Bellek(221, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj55P6CCJI/AAAAAAAABv0/Gb4lzwAkx0U/s1600-h/Senegal.png"
    Bellek(222, 1) = "S": Bellek(222, 2) = "SERBIA & MONTENEGRO": Bellek(222, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj5qljfhhI/AAAAAAAABvs/QwatnTP-3BY/s1600-h/Serbia-%26-Montenegro.png"
    Bellek(223, 1) = "S": Bellek(223, 2) = "SEYCHELLES": Bellek(223, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj5jmlBWAI/AAAAAAAABvk/HNqmwsVxClc/s1600-h/Seychelles.png"
    Bellek(224, 1) = "S": Bellek(224, 2) = "SIERRA LEONE": Bellek(224, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj5cMOD_rI/AAAAAAAABvc/_wcFvqS7E6w/s1600-h/Sierra-Leone.png"
    Bellek(225, 1) = "S": Bellek(225, 2) = "SINGAPORE": Bellek(225, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj5UqVMYUI/AAAAAAAABvU/hKCgh8qQrLc/s1600-h/Singapore.png"
    Bellek(226, 1) = "S": Bellek(226, 2) = "SLOVAKIA": Bellek(226, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj5NRmJ0PI/AAAAAAAABvM/lJYfClur_iU/s1600-h/Slovakia.png"
    Bellek(227, 1) = "S": Bellek(227, 2) = "SLOVENIA": Bellek(227, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj5GdwEqLI/AAAAAAAABvE/CKtHQjKNewc/s1600-h/Slovenia.png"
    Bellek(228, 1) = "S": Bellek(228, 2) = "SOLOMON ISLANDS": Bellek(228, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj4-wVQTSI/AAAAAAAABu8/hmT4SUj8nKM/s1600-h/Solomon-Islands.png"
    Bellek(229, 1) = "S": Bellek(229, 2) = "SOMALIA": Bellek(229, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj4yLO8TKI/AAAAAAAABu0/YY0koxw61VU/s1600-h/Somalia.png"
    Bellek(230, 1) = "S": Bellek(230, 2) = "SOUTH AFRICA": Bellek(230, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj4qC6pCHI/AAAAAAAABus/NLkVeU8qbig/s1600-h/South-Africa.png"
    Bellek(231, 1) = "S": Bellek(231, 2) = "SOUTH KOREA": Bellek(231, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj4iSSIQSI/AAAAAAAABuk/JudNAab0La4/s1600-h/South-Korea.png"
    Bellek(232, 1) = "S": Bellek(232, 2) = "SPAIN": Bellek(232, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj4UOY0vTI/AAAAAAAABuc/H2y5Cc5Z48w/s1600-h/Spain.png"
    Bellek(233, 1) = "S": Bellek(233, 2) = "SRI LANKA": Bellek(233, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj4LFkORtI/AAAAAAAABuU/a6mi88iCvyA/s1600-h/Sri-Lanka.png"
    Bellek(234, 1) = "S": Bellek(234, 2) = "ST. KITTS & NEVIS": Bellek(234, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj4BcNDtJI/AAAAAAAABuM/pCrZjRSG3jg/s1600-h/St.-Kitts-%26-Nevis.png"
    Bellek(235, 1) = "S": Bellek(235, 2) = "ST. PIERRE & MIQUELON": Bellek(235, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj3z2p1RbI/AAAAAAAABuE/TmPsp-wO0Ao/s1600-h/St.-Pierre-%26-Miquelon.png"
    Bellek(236, 1) = "S": Bellek(236, 2) = "ST.VINCENT & THE GRENADINE": Bellek(236, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj3oVBk9WI/AAAAAAAABt8/V8Yl7m6PZ_Q/s1600-h/St.-Vincent-%26-the-Grenadine.png"
    Bellek(237, 1) = "S": Bellek(237, 2) = "SUDAN": Bellek(237, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj3hAoAuII/AAAAAAAABt0/hgmcHAbVx6o/s1600-h/Sudan.png"
    Bellek(238, 1) = "S": Bellek(238, 2) = "SURINAME": Bellek(238, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj3ahXvUxI/AAAAAAAABts/biS2ralqHBw/s1600-h/Suriname.png"
    Bellek(239, 1) = "S": Bellek(239, 2) = "SWAZILAND": Bellek(239, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj3Sy6VyWI/AAAAAAAABtk/QE6RGYJ9FLU/s1600-h/Swaziland.png"
    Bellek(240, 1) = "S": Bellek(240, 2) = "SWEDEN": Bellek(240, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj3B8da92I/AAAAAAAABtc/puUQ68NeIE0/s1600-h/Sweden.png"
    Bellek(241, 1) = "S": Bellek(241, 2) = "SWITZERLAND": Bellek(241, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj27HweUdI/AAAAAAAABtU/_JPtfLj_UK0/s1600-h/Switzerland.png"
    Bellek(242, 1) = "S": Bellek(242, 2) = "SYRIA": Bellek(242, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj20THrWrI/AAAAAAAABtM/qXa4aCpJlng/s1600-h/Syria.png"
    Bellek(243, 1) = "T": Bellek(243, 2) = "TAIWAN": Bellek(243, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj2ty5eOoI/AAAAAAAABtE/3b9q5T5mscE/s1600-h/Taiwan.png"
    Bellek(244, 1) = "T": Bellek(244, 2) = "TAJIKISTAN": Bellek(244, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj2nA00ASI/AAAAAAAABs8/f9DnfcMkFwQ/s1600-h/Tajikistan.png"
    Bellek(245, 1) = "T": Bellek(245, 2) = "TANZANIA": Bellek(245, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj2gq5e78I/AAAAAAAABs0/LosUARWzziI/s1600-h/Tanzania.png"
    Bellek(246, 1) = "T": Bellek(246, 2) = "THAILAND": Bellek(246, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj2YYwkkVI/AAAAAAAABss/pNhZoSdsgSg/s1600-h/Thailand.png"
    Bellek(247, 1) = "T": Bellek(247, 2) = "THE BAHAMAS": Bellek(247, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj2RrPcgYI/AAAAAAAABsk/leoHXcVClUI/s1600-h/The-Bahamas.png"
    Bellek(248, 1) = "T": Bellek(248, 2) = "TOGO": Bellek(248, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj2J725GYI/AAAAAAAABsc/17kPROp1M0Q/s1600-h/Togo.png"
    Bellek(249, 1) = "T": Bellek(249, 2) = "TONGA": Bellek(249, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/Szj2DPBTBbI/AAAAAAAABsU/GiHSozlWUc0/s1600-h/Tonga.png"
    Bellek(250, 1) = "T": Bellek(250, 2) = "TRINIDAD & TOBAGO": Bellek(250, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj10ow7RzI/AAAAAAAABsM/_A2HqJNjBVM/s1600-h/Trinidad-%26-Tobago.png"
    Bellek(251, 1) = "T": Bellek(251, 2) = "TUNISIA": Bellek(251, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj1rHOYTbI/AAAAAAAABsE/DvjXaf48nr0/s1600-h/Tunisia.png"
    Bellek(252, 1) = "T": Bellek(252, 2) = "TURKEY": Bellek(252, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szj1dIipOII/AAAAAAAABr8/WdaUrvQS3nY/s1600-h/Turkey.png"
    Bellek(253, 1) = "T": Bellek(253, 2) = "TURKMENISTAN": Bellek(253, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj0waKTclI/AAAAAAAABr0/b8GgY7VXUcM/s1600-h/Turkmenistan.png"
    Bellek(254, 1) = "T": Bellek(254, 2) = "TURKS & CAICOS": Bellek(254, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/Szj0iqx-ypI/AAAAAAAABrs/G7y3dGJp66I/s1600-h/Turks-%26-Caicos.png"
    Bellek(255, 1) = "T": Bellek(255, 2) = "TUVALU": Bellek(255, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj0bX413dI/AAAAAAAABrk/4n0sXXg3ycA/s1600-h/Tuvalu.png"
    Bellek(256, 1) = "U": Bellek(256, 2) = "UGANDA": Bellek(256, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szj0ScPtqYI/AAAAAAAABrc/db7CwD2q2mE/s1600-h/Uganda.png"
    Bellek(257, 1) = "U": Bellek(257, 2) = "UKRAINE": Bellek(257, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzjzfwFYzUI/AAAAAAAABrU/FxNNsMqVtGE/s1600-h/Ukraine.png"
    Bellek(258, 1) = "U": Bellek(258, 2) = "UNITED ARAB EMIRATES": Bellek(258, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzjzYA0UrDI/AAAAAAAABrM/V61R5XGPLOY/s1600-h/United-Arab-Emirates.png"
    Bellek(259, 1) = "U": Bellek(259, 2) = "UNITED KINGDOM": Bellek(259, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzjzRZ8D8lI/AAAAAAAABrE/GdhWFqNfJCs/s1600-h/United-Kingdom.png"
    Bellek(260, 1) = "U": Bellek(260, 2) = "UNITED NATIONS": Bellek(260, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzjzKQVRK2I/AAAAAAAABq8/TTlE2J-a6ec/s1600-h/United-Nations.png"
    Bellek(261, 1) = "U": Bellek(261, 2) = "UNITED STATES": Bellek(261, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzjzCdhWdGI/AAAAAAAABq0/A0UZGq_WuTc/s1600-h/United-States.png"
    Bellek(262, 1) = "U": Bellek(262, 2) = "URUGUAY": Bellek(262, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szjy6of3XwI/AAAAAAAABqs/w1Sqbhv9vLo/s1600-h/Uruguay.png"
    Bellek(263, 1) = "U": Bellek(263, 2) = "UZBEKISTAN": Bellek(263, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szjyzq33GRI/AAAAAAAABqk/PLwfMngflAQ/s1600-h/Uzbekistan.png"
    Bellek(264, 1) = "V": Bellek(264, 2) = "VANUATU": Bellek(264, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzjysPVHDTI/AAAAAAAABqc/cmD-gyvfzzQ/s1600-h/Vanuatu.png"
    Bellek(265, 1) = "V": Bellek(265, 2) = "VATICAN CITY": Bellek(265, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzjyjoIw8GI/AAAAAAAABqU/WKy-IH18i9Q/s1600-h/Vatican-City.png"
    Bellek(266, 1) = "V": Bellek(266, 2) = "VENEZUELA": Bellek(266, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzjyVjvgZSI/AAAAAAAABqM/6G-aHcW56IE/s1600-h/Venezuela.png"
    Bellek(267, 1) = "V": Bellek(267, 2) = "VIETNAM": Bellek(267, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzjyNQme9oI/AAAAAAAABqE/IX-LOLe3iOs/s1600-h/Vietnam.png"
    Bellek(268, 1) = "V": Bellek(268, 2) = "VIRGIN ISLANDS": Bellek(268, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/SzjyEvsLY5I/AAAAAAAABp8/0kLR0A4Z5fs/s1600-h/Virgin-Islands.png"
    Bellek(269, 1) = "W": Bellek(269, 2) = "WALES": Bellek(269, 3) = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/Szjx9mJD7zI/AAAAAAAABp0/Kzi8XwLzm3E/s1600-h/Wales.png"
    Bellek(270, 1) = "W": Bellek(270, 2) = "WALLIS AND FUTUNA ISLANDS": Bellek(270, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szjx1bmpLjI/AAAAAAAABps/fzhgQYYtq7c/s1600-h/Wallis-and-Futuna-Islands.png"
    Bellek(271, 1) = "W": Bellek(271, 2) = "WESTERN SAHARA": Bellek(271, 3) = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/SzjxoFPgSkI/AAAAAAAABpk/sx_wn4ST0co/s1600-h/Western-Sahara.png"
    Bellek(272, 1) = "Y": Bellek(272, 2) = "YEMEN": Bellek(272, 3) = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/SzjxaTOqfMI/AAAAAAAABpc/mjJLLf7pSVE/s1600-h/Yemen.png"
    Bellek(273, 1) = "Z": Bellek(273, 2) = "ZAMBIA": Bellek(273, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/SzjxQlCIuSI/AAAAAAAABpU/Lp2gUEC17is/s1600-h/Zambia.png"
    Bellek(274, 1) = "Z": Bellek(274, 2) = "ZIMBABWE": Bellek(274, 3) = "
http://1.bp.blogspot.com/_hsHTxo_5L8E/Szjw9lqkV-I/AAAAAAAABpM/rF18RevaSjA/s1600-h/Zimbabwe.png"
    With TreeView1
        For i = 1 To Adet
            If Bellek(i, 1) = "" Then
                .Nodes.Add , , "Key" & Bellek(i, 2), Bellek(i, 2)
                .Nodes("Key" & Bellek(i, 2)).Tag = Bellek(i, 3)
            Else
                .Nodes.Add "Key" & Bellek(i, 1), 4, "Key" & Bellek(i, 2), Bellek(i, 2)
                .Nodes("Key" & Bellek(i, 2)).Tag = Bellek(i, 3)
            End If
        Next i
        For i = 1 To Adet
            If .Nodes(i).Children > 0 Then
                .Nodes(i).Bold = True
                .Nodes(i).ForeColor = &H808000
            Else
                .Nodes(i).Bold = False
                .Nodes(i).ForeColor = vbBlue
            End If
        Next i
    End With
End Sub


'Module1

Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewIndex As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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 URL As String
Public Const URL1 As String = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/S_v2_-lOAYI/AAAAAAAACeE/MuP5EPuvbfY/s1600/WMPGIF.gif" 'Microsoft Office Excel® Kod Kılavuzu [UserFormSkin]

Public Const URL2 As String = "http://4.bp.blogspot.com/_hsHTxo_5L8E/S_vvTUxFvgI/AAAAAAAACdc/CiLSql523CY/s1600/K%C3%BC%C3%A7%C3%BClGIF.gif" 'Microsoft Office Excel® Kod Kılavuzu [MinimizeButton]
Public Const URL3 As String = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/S_vvAQpQa9I/AAAAAAAACdM/Eb9N9Ta6X-8/s1600/B%C3%BCy%C3%BCGIF.gif" 'Microsoft Office Excel® Kod Kılavuzu [MaximizeButton]
Public Const URL4 As String = "
http://2.bp.blogspot.com/_hsHTxo_5L8E/S_vvNIYA3mI/AAAAAAAACdU/wfzXLtltVxQ/s1600/KapatGIF.gif" 'Microsoft Office Excel® Kod Kılavuzu [Close Button]
'Public Const URL5 As String = "
http://3.bp.blogspot.com/_hsHTxo_5L8E/S_vvdcHkKdI/AAAAAAAACds/9mtA_5LMRug/s1600/PB%C4%B0D24GIF.gif" 'Microsoft Office Excel®Kod Kılavuzu [PBİD24 Icon]
Public Const URL5 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 URL6 As String = "
http://4.bp.blogspot.com/_hsHTxo_5L8E/S_vvY4BzesI/AAAAAAAACdk/RmtyZBq4S7I/s1600/NormalGIF.gif" 'Microsoft Office Excel® Kod Kılavuzu [Restore Button]
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 ReferenceList()

    'On Error Resume Next
    'Dim Eleman, No
    'No = 1
    'For Each Eleman In ThisWorkbook.VBProject.References
        'Cells(No, 1) = "Name: "
        'Cells(No, 2) = Eleman.Name
        'Cells(No, 3) = ", Description: "
        'Cells(No, 4) = Eleman.Description
        'Cells(No, 5) = ", Full Path: "
        'Cells(No, 6) = Eleman.FullPath
        'No = No + 1
    'Next Eleman
'End Sub


'Class1

Option Explicit
Private WithEvents AraYüz As MSForms.UserForm
Private SergrafikRenk As Long, AraYüzBölgesi As Long, MaskeBölgesi As Long, ÇerçeveBölgesi As Long
Private MaskeliBölge As Long, EldekiBölge As Long, BaşlamaNoktası As Long, BaşlamaBölgesi As Boolean, RenkNoktası As Long, Apsis As Long, Ordinat As Long
Private Çerçeve As Long, Yoğunluk As Long, Pencere As Long
Public Sub EkranYükleme(ByRef Ekran As Object, ByVal Renk As Long)
    On Error Resume Next
    Set AraYüz = Ekran
    SergrafikRenk = Renk
    Ekran.BorderStyle = fmBorderStyleNone
    Ekran.BackColor = SergrafikRenk
    AraYüzBölgesi = FindWindow(vbNullString, Ekran.Caption)
    If AraYüzBölgesi <> 0 Then
        SetWindowLong AraYüzBölgesi, -16, GetWindowLong(AraYüzBölgesi, -16) And Not &H400000
        DrawMenuBar AraYüzBölgesi
        PencereSerigrafi AraYüzBölgesi, 0
    End If
End Sub
Private Sub PencereSerigrafi(ByVal Pencere As Long, ByVal Karakter As Byte)

    On Error Resume Next
    SetWindowLong Pencere, (-20), GetWindowLong(Pencere, (-20)) Or &H80000
    SetLayeredWindowAttributes Pencere, ByVal 0&, Karakter, &H2
End Sub
Private Function BölgeselSerigrafi(ByVal Nokta As Long, ByVal SBoy As Long, ByVal SEn As Long, ByVal Renk As Long) As Long

    On Error Resume Next
    MaskeliBölge = CreateRectRgn(0, 0, 0, 0)
    For Ordinat = 0 To SBoy - 1
        BaşlamaNoktası = 0
        BaşlamaBölgesi = False
        For Apsis = 0 To SEn
            RenkNoktası = GetPixel(Nokta, Apsis, Ordinat)
            If RenkNoktası <> Renk And RenkNoktası <> &HFFFFFFFF Then
                If BaşlamaBölgesi = False Then
                    BaşlamaBölgesi = True
                    BaşlamaNoktası = Apsis
                End If
            Else
                If BaşlamaBölgesi = True Then
                    EldekiBölge = CreateRectRgn(BaşlamaNoktası + 3 + 1, Ordinat + 3 + 1, Apsis + 3, Ordinat + 3)
                    Call CombineRgn(MaskeliBölge, MaskeliBölge, EldekiBölge, 2)
                    Call DeleteObject(EldekiBölge)
                    BaşlamaBölgesi = False
                End If
            End If
        Next Apsis
    Next Ordinat
    BölgeselSerigrafi = MaskeliBölge
End Function
Public Sub EkranGösterme()

    On Error Resume Next
    AraYüz.Repaint
    If AraYüzBölgesi <> 0 Then
        Çerçeve = GetDC(AraYüzBölgesi)
        MaskeBölgesi = BölgeselSerigrafi(Çerçeve, AraYüz.InsideHeight / 0.75, AraYüz.InsideWidth / 0.75, SergrafikRenk)
        ÇerçeveBölgesi = SetWindowRgn(AraYüzBölgesi, MaskeBölgesi, True)
        ReleaseDC AraYüzBölgesi, Çerçeve
        For Yoğunluk = 1 To 255
            DoEvents
            PencereSerigrafi AraYüzBölgesi, Yoğunluk
        Next Yoğunluk
        For Yoğunluk = 5 To 255 Step 5
            DoEvents
            PencereSerigrafi AraYüzBölgesi, Yoğunluk
        Next Yoğunluk
        PencereSerigrafi AraYüzBölgesi, 255
    End If
End Sub
Private Sub Class_Terminate()

    On Error Resume Next
    If AraYüzBölgesi <> 0 Then
        DeleteObject ÇerçeveBölgesi
        DeleteObject MaskeBölgesi
        SetWindowLong AraYüzBölgesi, -16, GetWindowLong(AraYüzBölgesi, -16) Or &H400000
    End If
    Set AraYüz = Nothing
End Sub
Public Sub AraYüzFareAşağıKomutu(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    On Error Resume Next
    If Button = 1 Then
        If AraYüzBölgesi <> 0 Then
            ReleaseCapture
            SendMessage AraYüzBölgesi, &HA1, 2, 0
        End If
    End If
End Sub
Public Property Set Ekran1(Ekran As Object) '[+,+,+]Normal Açar

    On Error Resume Next
    Pencere = FindWindow(vbNullString, Ekran.Caption)
    SimgeYarat Ekran, Pencere, Ekran.Image5.Picture
    SetWindowLong Pencere, (-16), GetWindowLong(Pencere, (-16)) Or &H80000 Or &H20000 Or &H10000
    DrawMenuBar Pencere
    ShowWindow Pencere, 5
    SetFocus Pencere
End Property
Private Function SimgeYarat(Form As Object, Başlık As Long, EkranSimge As Long)

    On Error Resume Next
    Call SendMessage(Başlık, &H80, 0&, ByVal EkranSimge)
    Call SendMessage(Başlık, &H80, 1&, ByVal EkranSimge)
End Function
Public Sub EkranDurumu(ByRef Ekran As Object, ByVal Durumu As Double)

    On Error Resume Next
    Pencere = FindWindow(vbNullString, Ekran.Caption)
    Select Case Durumu
        Case Is = 1: ShowWindow Pencere, 1 'Restore
        Case Is = 2: ShowWindow Pencere, 2 'Minimize
        Case Is = 3: ShowWindow Pencere, 3 'Maximize
        Case Is = 4: ShowWindow Pencere, 4 'Normal
        Case Is = 5: ShowWindow Pencere, 5 'Normal Open
        Case Is = 6: ShowWindow Pencere, 6 'Minimize
    End Select
End Sub

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