Josma SA:MP Guide v1.0 BETA

Public Class JosmaSampGuide

    '            ___         ___           ___           ___           ___
    '           /  /\       /  /\         /  /\         /  /\         /  /\
    '          /  /::\     /  /::\       /  /::\       /  /:/_       /  /::\
    '         /  /:/\:\   /  /:/\:\     /  /:/\:\     /  /:/ /\     /  /:/\:\
    '        /  /:/~/:/  /  /:/~/:/    /  /:/  \:\   /  /:/_/::\   /  /:/~/:/
    '       /__/:/ /:/  /__/:/ /:/___ /__/:/ \__\:\ /__/:/__\/\:\ /__/:/ /:/___
    '       \  \:\/:/   \  \:\/:::::/ \  \:\ /  /:/ \  \:\ /~~/:/ \  \:\/:::::/
    '        \  \::/     \  \::/~~~~   \  \:\  /:/   \  \:\  /:/   \  \::/~~~~
    '         \  \:\      \  \:\        \  \:\/:/     \  \:\/:/     \  \:\
    '          \  \:\      \  \:\        \  \::/       \  \::/       \  \:\
    '           \__\/       \__\/         \__\/         \__\/         \__\/
    '           ___           ___           ___           ___           ___
    '          /  /\         /  /\         /  /\         /  /\         /  /\
    '         /  /:/_       /  /:/_       /  /:/_       /  /::\       /  /::\
    '        /  /:/ /\     /  /:/ /\     /  /:/ /\     /  /:/\:\     /  /:/\:\
    '       /  /:/ /:/_   /  /:/ /::\   /  /:/ /::\   /  /:/~/::\   /  /:/  \:\
    '      /__/:/ /:/ /\ /__/:/ /:/\:\ /__/:/ /:/\:\ /__/:/ /:/\:\ /__/:/ \__\:\
    '      \  \:\/:/ /:/ \  \:\/:/~/:/ \  \:\/:/~/:/ \  \:\/:/__\/ \  \:\ /  /:/
    '       \  \::/ /:/   \  \::/ /:/   \  \::/ /:/   \  \::/       \  \:\  /:/
    '        \  \:\/:/     \__\/ /:/     \__\/ /:/     \  \:\        \  \:\/:/
    '         \  \::/        /__/:/        /__/:/       \  \:\        \  \::/
    '          \__\/         \__\/         \__\/         \__\/         \__\/ ~ Logo by Gil
    Dim LBSelect As Integer = 0
    Dim LASelect As Integer = 0
    Dim LCSelect As Integer = 0
    Dim MostrarOcultar As Boolean = True
    Private Sub TableLayoutPanel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=270889")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=288305")
    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?p=1194588")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?p=1194588")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?p=1121632")
    End Sub

    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel5_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=277889")
    End Sub

    Private Sub LinkLabel6_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=135116")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=292185")
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=284396")
    End Sub

    Private Sub LinkLabel7_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=97558")
    End Sub

    Private Sub LinkLabel8_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=97558")
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=284636")
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=291557")
    End Sub

    Private Sub LinkLabel9_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=138556")
    End Sub

    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs)

    End Sub

    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LinkLabel9_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel8_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel7_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel5_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel6_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel1_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=138556")
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=291557")
    End Sub

    Private Sub LinkLabel2_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=97558")
    End Sub

    Private Sub LinkLabel3_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=97558")
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=284636")
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=284396")
    End Sub

    Private Sub LinkLabel4_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
        Process.Start("http://forum.sa-mp.com/member.php?u=135116")
    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=292185")
    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?p=1121632")
    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=277889")
    End Sub

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?p=1194588")
    End Sub

    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=270889")
    End Sub

    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Process.Start("http://forum.sa-mp.com/showthread.php?t=288305")
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=286125")
    End Sub

    Private Sub LinkLabel18_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel18.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=101084")
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=250645")
    End Sub

    Private Sub LinkLabel17_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel17.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=98669")
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=281966")
    End Sub

    Private Sub LinkLabel16_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel16.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=138556")
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=283378")
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=282016")
    End Sub

    Private Sub LinkLabel15_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel15.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=135587")
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=230868")
    End Sub

    Private Sub LinkLabel13_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel13.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=86394")
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=240266")
    End Sub

    Private Sub LinkLabel12_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel12.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=15482")
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=271112")
    End Sub

    Private Sub LinkLabel11_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel11.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=79323")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=237390")
    End Sub

    Private Sub LinkLabel10_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel10.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=15482")
    End Sub

    Private Sub LinkLabel27_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel27.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=79260")
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=134330")
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=180237")
    End Sub

    Private Sub LinkLabel26_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel26.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=87608")
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=235924")
    End Sub

    Private Sub LinkLabel25_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel25.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=78710")
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=216163")
    End Sub

    Private Sub LinkLabel23_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel23.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=42830")
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=195380")
    End Sub

    Private Sub LinkLabel24_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel24.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=78710")
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=208630")
    End Sub

    Private Sub LinkLabel22_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel22.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=86220")
    End Sub

    Private Sub Label22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label22.Click

    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=198731")
    End Sub

    Private Sub LinkLabel21_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel21.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=61090")
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=290735")
    End Sub

    Private Sub LinkLabel20_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=127604")
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=286408")
    End Sub

    Private Sub LinkLabel19_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel19.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=136764")
    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=287100")
    End Sub

    Private Sub LinkLabel36_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=120295")
    End Sub

    Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=187764")
    End Sub

    Private Sub LinkLabel35_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel35.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=108202")
    End Sub

    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=292192")
    End Sub

    Private Sub LinkLabel34_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel34.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=101084")
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=259611")
    End Sub

    Private Sub LinkLabel32_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=116320")
    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=283007")
    End Sub

    Private Sub LinkLabel33_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=133113")
    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=279179")
    End Sub

    Private Sub LinkLabel31_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel31.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=110760")
    End Sub

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=180267")
    End Sub

    Private Sub LinkLabel30_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel30.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=92708")
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=182094")
    End Sub

    Private Sub LinkLabel29_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel29.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=98674")
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=195202")
    End Sub

    Private Sub LinkLabel28_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel28.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=108629")
    End Sub

    Private Sub LinkLabel9_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel9.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel8_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel8.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel7_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel7.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel5_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel6_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel6.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=79936")
    End Sub

    Private Sub LinkLabel4_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=135116")
    End Sub

    Private Sub LinkLabel3_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=97558")
    End Sub

    Private Sub LinkLabel2_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=97558")
    End Sub

    Private Sub LinkLabel1_LinkClicked_2(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://forum.sa-mp.com/member.php?u=138556")
    End Sub

    Private Sub Button4_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=292185")
    End Sub

    Private Sub Button9_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=288305")
    End Sub

    Private Sub Button3_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=284396")
    End Sub

    Private Sub Button2_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=284636")
    End Sub

    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=291557")
    End Sub

    Private Sub Button8_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=270889")
    End Sub

    Private Sub Button7_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?p=1194588")
    End Sub

    Private Sub Button5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?t=277889")
    End Sub

    Private Sub Button6_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Process.Start("http://forum.sa-mp.com/showthread.php?p=1121632")
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click

        Process.Start("http://www.youtube.com/watch?v=uWvHgEBdt2o")
        MsgBox("Você pode entrar em contato através de comentários no youtube.")

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
        MsgBox("Bem-vindo, obrigado por baixar este aplicativo, esperamos que lhe seja útil. Para facilitar seu acesso e entendimento às funções deste aplicativo em cada uma das 10 abas foi colocado um botão de ajuda, que lhe servirá como instrutor ao uso da pagina")
    End Sub

    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        MsgBox("Este é um aplicativo totalmente gratuito, porem, é PROIBIDO a postagem do mesmo em qualquer meio de comunicação sem autorização previamente concedida pelo autor do aplicativo(Josma), a autorização pode ser pedido por meio de Ask no tumblr ou Private Message no fórum samp oficial. Links em: Contato.")
    End Sub

    Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
        MsgBox("Ao lado do campo azul instrutivo existe uma sequencia de 4 paginas, cada uma delas contem 9 tutoriais em 3 colunas, a primeira é referente ao tema do tutorial, a segunda ao autor do tutorial e a terceira o botão que lhe direcionará à pagina do tutorial, ao clicar no nome do autor do tutorial você poderá também visitar o perfil do mesmo.")
    End Sub

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged

        Select Case (ListBox2.SelectedIndex)

            Case 0

                Dim Texto As String = "OnDialogResponse" & vbCrLf & "Esta callback é chamada sempre que executada uma ação à um dialog, como um click no primeiro ou segundo botão" & vbCrLf & "ou um click sobre um item da lista de um dialog" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])"
                TextBox1.Text = Texto & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])" & vbCrLf & "{" & vbCrLf & "    if(response)" & vbCrLf & "    {" & vbCrLf & "        //Você clicou no primeiro botão" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 1

                Dim Texto As String = "OnEnterExitModShop" & vbCrLf & "Esta callback é chamada sempre que um jogador entra ou sai de um menu shop(Como aqueles da ammunation ou transfeder)" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnEnterExitModShop(playerid, enterexit, interiorid)"
                TextBox1.Text = Texto & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnEnterExitModShop(playerid, enterexit, interiorid)" & vbCrLf & "{" & vbCrLf & "    if(enterexit == 0) //0(zero) Significa que ele saiu do interior" & vbCrLf & "    {" & vbCrLf & "        //O playerid saiu do interior" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 2

                Dim Texto As String = "OnFilterScriptExit" & vbCrLf & "Esta callback é chamada sempre que o FilterScript é carregado." & vbCrLf & vbCrLf & "Esta callback não tem parâmetros" & vbCrLf & "public OnFilterScriptExit()" & vbCrLf & vbCrLf & "Atenção: Esta callback é usada apenas em FilterScripts" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnFilterScriptExit()" & vbCrLf & "{" & vbCrLf & "    //O FilterScript foi descarregado" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox1.Text = Texto

            Case 3

                Dim Texto As String = "OnFilterScriptInit" & vbCrLf & "Esta callback é chamada sempre que o FilterScript é carregado." & vbCrLf & vbCrLf & "Esta callback não tem parâmetros" & vbCrLf & "public OnFilterScriptInit()" & vbCrLf & vbCrLf & "Atenção: Esta callback é usada apenas em FilterScripts" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnFilterScriptInit()" & vbCrLf & "{" & vbCrLf & "    //O FilterScript foi carregado" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox1.Text = Texto

            Case 4

                Dim Texto As String = "OnGameModeExit" & vbCrLf & "Esta callback é chamada sempre que o GameMode é descarregado." & vbCrLf & vbCrLf & "Esta callback não tem parâmetros" & vbCrLf & "public OnGameModeExit()" & vbCrLf & vbCrLf & "Atenção: Esta callback é usada apenas em GameModes" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnGameModeExit()" & vbCrLf & "{" & vbCrLf & "    SendClientMessageToAll(0xFFFFFFFF, ""Progressão Pawn: Servidor descarregado"");" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox1.Text = Texto

            Case 5

                Dim Texto As String = "OnGameModeInit" & vbCrLf & "Esta callback é chamada sempre que o GameMode é carregado." & vbCrLf & vbCrLf & "Esta callback não tem parâmetros" & vbCrLf & "public OnGameModeInit()" & vbCrLf & vbCrLf & "Atenção: Esta callback é usada apenas em GameModes" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnGameModeInit()" & vbCrLf & "{" & vbCrLf & "    SetGameModeText(""Progressão Pawn"");" & vbCrLf & "    O GameMode foi iniciado e o nome setado pra Progressão Pawn" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox1.Text = Texto

            Case 6

                Dim Texto As String = "OnObjectMoved" & vbCrLf & "Esta callback é chamada sempre que um objeto é movido." & vbCrLf & vbCrLf & "Os parâmetros desta callback são:" & vbCrLf & "public OnObjectMoved(objectid)" & vbCrLf & vbCrLf & "public OnObjectMoved(objectid)" & vbCrLf & "{" & vbCrLf & "    printf(""O objeto ID: %d foi movido"", objectid);" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox1.Text = Texto

            Case 7

                Dim Texto As String = "OnPlayerClickPlayer" & vbCrLf & "Esta callback é chamada sempre que um player clica em outro player atravez do menu de lista (TAB)." & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerClickPlayer(playerid, clickedplayer)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerClickPlayer(playerid, clickedplayer)" & vbCrLf & "{" & vbCrLf & "    if(clickedplayer == 3)" & vbCrLf & "    {" & vbCrLf & "        SendClientMessage(playerid, 0xFFFFFFFF, ""Você clicou no player id 3"");"
                TextBox1.Text = Texto & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 8

                Dim Texto As String = "OnPlayerCommandText" & vbCrLf & "Esta callback é chamada sempre que digitado algum comando iniciado com /(barra) por parte do player." & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerCommandText(playerid, cmdtext)" & vbCrLf & vbCrLf & "public OnPlayerCommandText(playerid, cmdtext)" & vbCrLf & "{" & vbCrLf & "    if(strcmp(cmdtext, ""/comando"", true) == 0)" & vbCrLf & "    {" & vbCrLf & "        printf(""O player %d digitou o comando %s"", playerid, cmdtext);"
                TextBox1.Text = Texto & vbCrLf & "        return true;" & vbCrLf & "    }" & vbCrLf & "    return false;" & vbCrLf & "}"

            Case 9

                Dim Texto As String = "OnPlayerConnect" & vbCrLf & "Esta callback é chamada sempre que um player se conecta ao servidor" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerConnect(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerConnect(playerid)" & vbCrLf & "{" & vbCrLf & "    new nome[MAX_PLAYER_NAME], Texto[60]" & vbCrLf & "    GetPlayerName(playerid, nome, sizeof(nome));" & vbCrLf & "    format(Texto, sizeof(Texto), ""O jogador: %s se conectou ao servidor"", nome);"
                TextBox1.Text = Texto & vbCrLf & "    SendClientMessageToAll(0x1E90FF99, Texto);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 10

                TextBox1.Text = "OnPlayerDeath" & vbCrLf & "Esta callback é chamada sempre que um jogador é morto, é acoplado o motivo à reason e quem o matou em killerid" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerDeath(playerid, killerid, reason)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerDeath(playerid, killerid, reason)" & vbCrLf & "{" & vbCrLf & "    if(killerid == INVALID_PLAYER_ID) return false;" & vbCrLf & "    SendDeathMessage(kilerid, playerid, reason);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 11

                Dim Texto As String = "OnPlayerDisconnect" & vbCrLf & "Esta callback é chamada sempre que um player disconecta do servidor" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerDisconnect(playerid, reason)" & vbCrLf & vbCrLf & "public OnPlayerDisconnect(playerid, reason)" & vbCrLf & "{" & vbCrLf & "    switch(reason)" & vbCrLf & "    {" & vbCrLf & "        case 0: print(""Um jogador se desconectou por: Queda de conexão."");" & vbCrLf & "        case 1: print(""Um jogador se desconectou por: Conta própria."");"
                TextBox1.Text = Texto & vbCrLf & "        case 2: print(""Um jogador se desconectou por: Foi kickado ou banido."");" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 12

                TextBox1.Text = "OnPlayerEnterCheckpoint" & vbCrLf & "Esta callback é chamada sempre que um jogador entra em um Checkpoint." & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerEnterCheckpoint(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerEnterCheckpoint(playerid)" & vbCrLf & "{" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, ""Você entrou em um checkpoint"");" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 13

                TextBox1.Text = "OnPlayerEnterRaceCheckpoint" & vbCrLf & "Esta callback é chamada sempre que um jogador entra em um Race Checkpoint." & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerEnterRaceCheckpoint(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerEnterRaceCheckpoint(playerid)" & vbCrLf & "{" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, ""Você entrou em um race checkpoint"");" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 14

                Dim Texto As String = "OnPlayerEnterVehicle" & vbCrLf & "Esta callback é chamada sempre que um player entra em um veículo(Ao pressionar F/Enter)." & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerEnterVehicle(playerid, vehicleid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerEnterVehicle(playerid, vehicleid)" & vbCrLf & "{" & vbCrLf & "    if(vehicleid == 500)" & vbCrLf & "    {"
                TextBox1.Text = Texto & vbCrLf & "        SendClientMessage(playerid, 0x1E90FF99, ""Você entrou no veículo ID: 500"");" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 15

                Dim Texto As String = "OnPlayerExitVehicle" & vbCrLf & "Esta callback é chamada sempre que um player sai de um veículo." & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerExitVehicle(playerid, vehicleid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerEnterVehicle(playerid, vehicleid)" & vbCrLf & "{" & vbCrLf & "    if(vehicleid == 500)" & vbCrLf & "    {"
                TextBox1.Text = Texto & vbCrLf & "        SendClientMessage(playerid, 0x1E90FF99, ""Você saiu do veículo ID: 500 e agora ele está sem motorista"");" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 16

                TextBox1.Text = "OnPlayerExitedMenu" & vbCrLf & "Esta callback é chamada sempre que um jogador sai de um menu" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerExitedMenu(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerExitedMenu(playerid)" & vbCrLf & "{" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, ""Você saiu do menu, espero que tenha gostado das opções"");" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 17

                Dim Texto As String = "OnPlayerGiveDamage" & vbCrLf & "Esta callback é chamada sempre que um jogador danifica outro jogador" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerGiveDamage(playerid, damagedid, Float: amount, weaponid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerGiveDamage(playerid, damagedid, Float: amount, weaponid)" & vbCrLf & "{" & vbCrLf & "    if(damagedid != INVALID_PLAYER_ID)" & vbCrLf & "    {" & vbCrLf & "        new Texto[128], Vitima[MAX_PLAYER_NAME], Atacante[MAX_PLAYER_NAME], Arma[24];"
                TextBox1.Text = Texto & vbCrLf & "        GetPlayerName(playerid, Atacante, sizeof(Atacante));" & vbCrLf & "        GetPlayerName(damagedid, Vitima, sizeof(Vitima));" & vbCrLf & "        GetWeaponName(weaponid, Arma, sizeof(Arma));" & vbCrLf & "        format(Texto, sizeof(Texto), ""O jogador %s tirou %0f de vida do jogador %s com a arma %s"", Atacante, amount, Vitima, Arma);" & vbCrLf & "        SendClientMessageToAll(0x1E90FF99, Texto);" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 18

                TextBox1.Text = "OnPlayerInteriorChange" & vbCrLf & "Esta callback é chamada sempre que um player muda de interior" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "OnPlayerInteriorChange(playerid,newinteriorid,oldinteriorid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "OnPlayerInteriorChange(playerid,newinteriorid,oldinteriorid)" & vbCrLf & "{" & vbCrLf & "    new Texto[43];" & vbCrLf & "    format(Texto, sizeof(Texto), ""Você saiu do interior %d para o interior %d"", oldinterior, newinterior);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 19

                TextBox1.Text = "OnPlayerKeyStateChange" & vbCrLf & "Esta callback é chamada sempre que o jogador pressiona ou solta um botão" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)" & vbCrLf & "{" & vbCrLf & "    if(newkeys == KEY_SECONDARY_ATTACK)" & vbCrLf & "    {" & vbCrLf & "        SendClientMessage(playerid, 0x1E90FF99, ""Você pressionou Enter/F"");" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 20

                TextBox1.Text = "OnPlayerLeaveCheckpoint" & vbCrLf & "Esta callback é chamada sempre que um jogador sai de um checkpoint" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerLeaveCheckpoint(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerLeaveCheckpoint(playerid)" & vbCrLf & "{" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, ""Você saiu de um Checkpoint"");" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 21

                TextBox1.Text = "OnPlayerLeaveRaceCheckpoint" & vbCrLf & "Esta callback é chamada sempre que um jogador sai de um race checkpoint" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerLeaveRaceCheckpoint(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerLeaveRaceCheckpoint(playerid)" & vbCrLf & "{" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, ""Você saiu de um Race Checkpoint"");" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 22

                TextBox1.Text = "OnPlayerPickUpPickup" & vbCrLf & "Esta callback é chamada sempre que um jogador pega um pickup" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerPickUpPickup(playerid, pickupid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerPickUpPickup(playerid, pickupid)" & vbCrLf & "{" & vbCrLf & "    if(pickupid == 1)" & vbCrLf & "    {" & vbCrLf & "        GivePlayerMoney(playerid, 100);" & vbCrLf & "        SendClientMessage(playerid, 0x1E90FF99, ""Você pegou o pickup 1 e ganhou $100"");" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 23

                TextBox1.Text = "OnPlayerRequestClass" & vbCrLf & "Esta callback é chamada sempre que um jogador muda de class na seleção de skins" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerRequestClass(playerid, classid)" & vbCrLf & vbCrLf & "Exemplo de uso" & vbCrLf & "public OnPlayerRequestClass(playerid, classid)" & vbCrLf & "{" & vbCrLf & "    if(classid == 1)" & vbCrLf & "    {" & vbCrLf & "        GameTextForPlayer(playerid, ""Skin numero 1 - Groove Street"", 25000, 3);" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 24

                TextBox1.Text = "OnPlayerRequestSpawn" & vbCrLf & "Esta callback é chamada quando um player nasce atravez da seleção de class" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerRequestSpawn(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerRequestSpawn(playerid)" & vbCrLf & "{" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, ""Você foi spawnado pelo request class e ganhou uma eagle com 500 ballas"");" & vbCrLf & "    GivePlayerWeapon(playerid, 24, 500);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 25

                Dim Texto As String = "OnPlayerSelectedMenuRow" & vbCrLf & "Esta callback é chamada sempre que um jogador seleciona um item no menu" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerSelectedMenuRow(playerid, row)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "new Menu:menu; //Global" & vbCrLf & vbCrLf & "public OnGameModeInit()" & vbCrLf & "{" & vbCrLf & "    menu = CreateMenu(""Menu de exemplo"", 1, 50.0, 180.0, 200.0, 200.0);" & vbCrLf & "    AddMenuItem(menu, 0, ""Item 1"");" & vbCrLf & "    AddMenuItem(menu, 0, ""Item 2"");" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox1.Text = Texto & vbCrLf & vbCrLf & "public OnPlayerSelectedMenuRow(playerid, row)" & vbCrLf & "{" & vbCrLf & "    new Menu:GetarMenu;" & vbCrLf & "    GetarMenu = GetPlayerMenu(playerid)" & vbCrLf & "    if(GetarMenu == menu)" & vbCrLf & "    {" & vbCrLf & "        switch(row)" & vbCrLf & "        {" & vbCrLf & "            case 0: print(""Item 1"");" & vbCrLf & "            case 1: print(""Item 2"");" & vbCrLf & "        }" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 26

                TextBox1.Text = "OnPlayerSpawn(playerid)" & vbCrLf & "Esta callback é chamada sempre que um player é spawnado(nasce)" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerSpawn(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerSpawn(playerid)" & vbCrLf & "{" & vbCrLf & "    GivePlayerWeapon(playerid, 24, 250);" & vbCrLf & "    GivePlayerWeapon(playerid, 31, 400);" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, ""Você foi spawnado, ganhou uma M4 e uma Eagle"");" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 27

                Dim Texto As String = "OnPlayerStateChange" & vbCrLf & "Esta callback é chamada sempre que um jogador muda de status" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerStateChange(playerid, newstate, oldstate)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerStateChange(playerid, newstate, oldstate)" & vbCrLf & "{" & vbCrLf & "    if(newstate == PLAYER_STATE_DRIVE)" & vbCrLf & "    {" & vbCrLf & "        SendClientMessage(playerid, 0x1E90FF99, ""Você agora está dirigindo"");" & vbCrLf & "    }"
                TextBox1.Text = Texto & vbCrLf & "    if(oldstate == PLAYER_STATE_DRIVE)" & vbCrLf & "    {" & vbCrLf & "        SendClientMessage(playerid, 0x1E90FF99, ""Você não está mais dirigindo"");" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 28

                TextBox1.Text = "OnPlayerStreamIn" & vbCrLf & "Esta callback é chamada sempre que um jogador fica visível à outro jogador" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerStreamIn(playerid, forplayerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerStreamIn(playerid, forplayerid)" & vbCrLf & "{" & vbCrLf & "    printf("" o player ID: %s agora é visível para o player id: %d"", playerid, forplayerid);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 29

                TextBox1.Text = "OnPlayerStreamOut" & vbCrLf & "Esta callback é chamada sempre que um jogador já não é mais visível à outro jogador" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerStreamOut(playerid, forplayerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerStreamOut(playerid, forplayerid)" & vbCrLf & "{" & vbCrLf & "    printf(""O jogador ID: %s já não transfere mais informações para o jogador ID: %d pois saiu do raio de stream"", playerid, forplayerid" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 30

                Dim Texto As String = "OnPlayerTakeDamage" & vbCrLf & "Esta callback é chamada sempre que um jogador causa dano à outro jogador" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerTakeDamage(playerid, issuerid, Float: amount, weaponid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "OnPlayerTakeDamage(playerid, issuerid, Float: amount, weaponid)" & vbCrLf & "{" & vbCrLf & "    if(!IsPlayerConnected(issuerid)) return false;" & vbCrLf & "    new nomeA[MAX_PLAYER_NAME];" & vbCrLf & "    new nomeB[MAX_PLAYER_NAME];" & vbCrLf & "    new Texto[128];" & vbCrLf & "    new Arma[24];"
                TextBox1.Text = Texto & vbCrLf & "    GetPlayerName(playerid, nomeA, sizeof(nomeA));" & vbCrLf & "    GetPlayerName(issuerid, nomeB, sizeof(nomeB));" & vbCrLf & "    GetWeaponName(weaponid, Arma, sizeof(Arma));" & vbCrLf & "format(Texto, sizeof(Texto), ""O jogador %s causou %.0f de dano no jogador %s com a arma %s"", nomeB, nomeA, amount, Arma);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 31

                TextBox1.Text = "OnPlayerText" & vbCrLf & "Esta callback é chamada sempre que um jogador envia uma mensagem no chat" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerText(playerid, text[])" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerText(playerid, text[])" & vbCrLf & "{" & vbCrLf & "    new Texto[128], nome[MAX_PLAYER_NAME];" & vbCrLf & "    GetPlayerName(playerid, nome, sizeof(nome));" & vbCrLf & "    format(Texto, sizeof(Texto),""%s[%d] Diz: %s"", nome, playerid, text);" & vbCrLf & "    SendClientMessageToAll(0xFFFFFFFF, Texto);" & vbCrLf & "    return false;" & vbCrLf & "}"

            Case 32

                Dim Texto As String = "OnPlayerUpdate" & vbCrLf & "Esta callback é chamada sempre que um jogador troca informações com o servidor" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnPlayerUpdate(playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnPlayerUpdate(playerid)" & vbCrLf & "{" & vbCrLf & "    new iCurWeap = GetPlayerWeapon(playerid);" & vbCrLf & "    if(iCurWeap != GetPVarInt(playerid, ""iCurrentWeapon""))" & vbCrLf & "    {" & vbCrLf & "        OnPlayerChangeWeapon(playerid, GetPVarInt(playerid, ""iCurrentWeapon""), iCurWeap);" & vbCrLf & "        SetPVarInt(playerid, ""iCurrentWeapon"", iCurWeap);"
                TextBox1.Text = Texto & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}" & vbCrLf & vbCrLf & "stock OnPlayerChangeWeapon(playerid, oldweapon, newweapon)" & vbCrLf & "    new s[128], oWeapon[24], nWeapon[24];" & vbCrLf & "    GetWeaponName(oldweapon, oWeapon, sizeof(oWeapon));" & vbCrLf & "    GetWeaponName(newweapon, nWeapon, sizeof(nWeapon));" & vbCrLf & "    format(s, sizeof(s), ""Você mudou sua arma de %s para %s"", oWeapon, nWeapon);" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, Texto);" & vbCrLf & "    return true;" & vbCrLf & "}" & vbCrLf & vbCrLf & "EXEMPLO BY WIKI SAMP"

            Case 33

                TextBox1.Text = "OnRconCommand" & vbCrLf & "Esta callback é chamada sempre que digitado um comando via Rcon(Console)" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnRconCommand(cmd[])" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnRconCommand(cmd[])" & vbCrLf & "{" & vbCrLf & "    new Texto[128];" & vbCrLf & "    format(Texto, sizeof(Texto), ""Aviso Rcon: %s"", cmd);" & vbCrLf & "    sendClientMessageToAll(0xE3191999, Texto);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 34

                TextBox1.Text = "OnRconLoginAttempt" & vbCrLf & "Esta callback é chamada sempre que alguém tenta logar na Rcon" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnRconLoginAttempt(ip[], password[], success)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnRconLoginAttempt(ip[], password[], success)" & vbCrLf & "{" & vbCrLf & "    if(sucess == 1)" & vbCrLf & "    {" & vbCrLf & "        printf(""IP: %s conseguiu logar na rcon"", ip);" & vbCrLf & "    }" & vbCrLf & "    if(sucess == 0)" & vbCrLf & "    {" & vbCrLf & "        printf(""O IP: %s tentou sem sucesso logar na rcon"", ip);" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 35

                Dim Texto As String = "OnUnoccupiedVehicleUpdate" & vbCrLf & "Esta callback é chamada sempre que um jogador atualiza a posição de um veículo que não está dirigindo, seja fora do carro ou estando como passageiro em um veículo sem motorista" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnUnoccupiedVehicleUpdate(vehicleid, playerid, passenger_seat)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnUnoccupiedVehicleUpdate(vehicleid, playerid, passenger_seat)" & vbCrLf & "{" & vbCrLf & "    new Float: VPos[3];" & vbCrLf & "    GetVehiclePos(vehicleid, VPos[0], VPos[1], VPos[2]);"
                TextBox1.Text = Texto & vbCrLf & "    if(!IsPlayerInRangeOfPoint(playerid, 10.0, VPos[0], VPos[1], VPos[2])) { return; }" & vbCrLf & "}"

            Case 36

                TextBox1.Text = "OnVehicleDamageStatusUpdate" & vbCrLf & "Esta callback é chamada sempre que um elemento do carro como ports, capo, parachoque dentre outros são danificados" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnVehicleDamageStatusUpdate(vehicleid, playerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnVehicleDamageStatusUpdate(vehicleid, playerid)" & vbCrLf & "{" & vbCrLf & "    printf(""O veículo ID: %d que pertence ao player ID: %d foi danificado."", vehicleid, playerid);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 37

                TextBox1.Text = "OnVehicleDeath" & vbCrLf & "Esta callback é chamada sempre que um veículo é destruído" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnVehicleDeath(vehicleid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnVehicleDeath(vehicleid)" & vbCrLf & "{" & vbCrLf & "    printf(""O veículo ID: %d foi destruído"", vehicleid);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 38

                TextBox1.Text = "OnVehicleMod" & vbCrLf & "Esta callback é chamada sempre que um veículo é modificado" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnVehicleMod(playerid, vehicleid, componentid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnVehicleMod(playerid, vehicleid, componentid)" & vbCrLf & "{" & vbCrLf & "    printf(""O veículo %d foi modificado por %d com o component %d"",vehicleid,playerid,componentid);" & vbCrLf & "    if(GetPlayerInterior(playerid) == 0)" & vbCrLf & "    {" & vbCrLf & "        BanEx(playerid, ""Tunagem hack"");" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 39

                TextBox1.Text = "OnVehiclePaintjob" & vbCrLf & "Esta callback é chamada quando um jogador modifica seu veículo com paintjob(na Transfeder por exemplo)." & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnVehiclePaintjob(playerid, vehicleid, paintjobid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnVehiclePaintjob(playerid, vehicleid, paintjobid)" & vbCrLf & "{" & vbCrLf & "    new Texto[55];" & vbCrLf & "    format(Texto, sizeof(Texto), ""Você mudou o modelo de paintjob de seu veículo para %d"", paintjobid);" & vbCrLf & "SendClientMessage(playerid, 0x1E90FF99, Texto);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 40

                TextBox1.Text = "OnVehicleRespray" & vbCrLf & "Mesmo contrariando o nome, esta callback não é chamada ao pintar o veículo no Pay'n'spray e sim quando sai de uma loja com a pintura modificada(como na transfeder)" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnVehicleRespray(playerid, vehicleid, color1, color2)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnVehicleRespray(playerid, vehicleid, color1, color2)" & vbCrLf & "{" & vbCrLf & "    new Texto[128];" & vbCrLf & "    format(Texto, sizeof(Texto), ""Você mudou a cor de seu veículo para: %d e %d"", color1, color2);" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, Texto);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 41

                TextBox1.Text = "OnVehicleSpawn" & vbCrLf & "Esta callback é chamada quando um veículo é criado ou recriado" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são: " & vbCrLf & "public OnVehicleSpawn(vehicleid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "public OnVehicleSpawn(vehicleid)" & vbCrLf & "{" & vbCrLf & "    printf(""O veículo ID: %d foi (re)criado"", vehicleid);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 42

                TextBox1.Text = "OnVehicleStreamIn" & vbCrLf & "Esta callback é chamada quando um veículo entra no raio de visão do player" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnVehicleStreamIn(vehicleid, forplayerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "OnVehicleStreamIn(vehicleid, forplayerid)" & vbCrLf & "{" & vbCrLf & "    new Texto[50];" & vbCrLf & "    format(Texto, sizeof(Texto), ""O veículo ID: %d entrou em seu raio de visão"", vehicleid);" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, Texto);" & vbCrLf & "    return true;" & vbCrLf & "}"

            Case 43

                TextBox1.Text = "OnVehicleStreamOut" & vbCrLf & "Esta callback é chamada quando um veículo sai do raio de visão do player" & vbCrLf & vbCrLf & "Os parâmetros dessa callback são:" & vbCrLf & "public OnVehicleStreamIn(vehicleid, forplayerid)" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "OnVehicleStreamIn(vehicleid, forplayerid)" & vbCrLf & "{" & vbCrLf & "    new Texto[50];" & vbCrLf & "    format(Texto, sizeof(Texto), ""O veículo ID: %d saiu do seu raio de visão"", vehicleid);" & vbCrLf & "    SendClientMessage(playerid, 0x1E90FF99, Texto);" & vbCrLf & "    return true;" & vbCrLf & "}"

        End Select

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Callbacks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Callbacks.Click

    End Sub

    Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click

        MsgBox("Na coluna à esquerda da pagina você tem acesso à lista de callbacks, mova a barra no canto da caixa para visualisar outras callbacks acima ou abaixo, ao clicar sobre uma callback serão mostradas informações na caixa à direita, note que algumas informações ocupam boa parte da caixa portante é permitido usar a barra para visualisar o conteúdo abaixo assim como na caixa de callbacks, leia a observação na caixa azul no canto inferior direito da pagina.")

    End Sub

    Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If
        TextBox2.Clear()
        TextBox2.Text = "File:fopen(const name[], filemode: mode = io_readwrite);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "bool:fclose(File: handle);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "File:ftemp();"
        TextBox2.Text = TextBox2.Text & vbCrLf & "bool:fremove(const name[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "fwrite(File: handle, const string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "fread(File: handle, string[], size = sizeof string, bool: pack = false);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "bool:fputchar(File: handle, value, bool: utf8 = true);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "fgetchar(File: handle, value, bool: utf8 = true);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "fblockwrite(File: handle, const buffer[], size = sizeof buffer);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "fblockread(File: handle, buffer[], size = sizeof buffer);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "fseek(File: handle, position = 0, seek_whence: whence = seek_start);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "flength(File: handle);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "fexist(const pattern[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "bool:fmatch(name[], const pattern[], index = 0, size = sizeof name);"
    End Sub

    Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If
        TextBox2.Clear()
        TextBox2.Text = "Float:floatstr(const string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatmul(Float:oper1, Float:oper2);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatdiv(Float:dividend, Float:divisor);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatadd(Float:oper1, Float:oper2);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatsub(Float:oper1, Float:oper2);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatfract(Float:value);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "floatround(Float:value, floatround_method:method=floatround_round);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "floatcmp(Float:oper1, Float:oper2);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatsqroot(Float:value);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatpower(Float:value, Float:exponent);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatlog(Float:value, Float:base=10.0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatsin(Float:value, anglemode:mode=radian);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatcos(Float:value, anglemode:mode=radian);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floattan(Float:value, anglemode:mode=radian);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:floatabs(Float:value);"
    End Sub

    Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If
        TextBox2.Clear()
        TextBox2.Text = "strlen(const string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "strpack(dest[], const source[], maxlength=sizeof dest);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "strunpack(dest[], const source[], maxlength=sizeof dest);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "strcat(dest[], const source[], maxlength=sizeof dest);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "strmid(dest[], const source[], start, end, maxlength=sizeof dest);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "bool: strins(string[], const substr[], pos, maxlength=sizeof string);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "bool: strdel(string[], start, end);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "strcmp(const string1[], const string2[], bool:ignorecase=false, length=cellmax);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "strfind(const string[], const sub[], bool:ignorecase=false, pos=0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "strval(const string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "valstr(dest[], value, bool:pack=false);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "bool: ispacked(const string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "uudecode(dest[], const source[], maxlength=sizeof dest);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "uuencode(dest[], const source[], numbytes, maxlength=sizeof dest);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "memcpy(dest[], const source[], index=0, numbytes, maxlength=sizeof dest);"
    End Sub

    Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If
        TextBox2.Clear()
        TextBox2.Text = "SendChat(msg[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SendCommand(commandtext[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerState(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerPos(playerid, &Float:x, &Float:y, &Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerVehicleID(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerArmedWeapon(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerHealth(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerArmour(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerSpecialAction(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerStreamedIn(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsVehicleStreamedIn(vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerKeys(playerid, &keys, &updown, &leftright);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerFacingAngle(playerid, &Float:ang);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetMyPos(&Float:x, &Float:y, &Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetMyPos(Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetMyFacingAngle(&Float:ang);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetMyFacingAngle(Float:ang);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetDistanceFromMeToPoint(Float:X, Float:Y, Float:Z, &Float:Distance);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerInRangeOfPoint(playerid, Float:range, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerName(playerid, const name[], len);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerConnected(playerid);tX, Float:OffsetY, Float:OffsetZ, Float:rX, Float:rY, Float:rZ);"
    End Sub

    Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If
        TextBox2.Clear()
        TextBox2.Text = "CreateObject(modelid, Float:X, Float:Y, Float:Z, Float:rX, Float:rY, Float:rZ, Float:DrawDistance = 0.0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AttachObjectToVehicle(objectid, vehicleid, Float:OffsetX, Float:OffsetY, Float:OffsetZ, Float:RotX, Float:RotY, Float:RotZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AttachObjectToObject(objectid, attachtoid, Float:OffsetX, Float:OffsetY, Float:OffsetZ, Float:RotX, Float:RotY, Float:RotZ, SyncRotation = 1);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AttachObjectToPlayer(objectid, playerid, Float:OffsetX, Float:OffsetY, Float:OffsetZ, Float:RotX, Float:RotY, Float:RotZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetObjectPos(objectid, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetObjectPos(objectid, &Float:X, &Float:Y, &Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetObjectRot(objectid, Float:RotX, Float:RotY, Float:RotZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetObjectRot(objectid, &Float:RotX, &Float:RotY, &Float:RotZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsValidObject(objectid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DestroyObject(objectid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "MoveObject(objectid, Float:X, Float:Y, Float:Z, Float:Speed, Float:RotX = -1000.0, Float:RotY = -1000.0, Float:RotZ = -1000.0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "StopObject(objectid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "CreatePlayerObject(playerid, modelid, Float:X, Float:Y, Float:Z, Float:rX, Float:rY, Float:rZ, Float:DrawDistance = 0.0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerObjectPos(playerid, objectid, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerObjectPos(playerid, objectid, &Float:X, &Float:Y, &Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerObjectRot(playerid, objectid, Float:RotX, Float:RotY, Float:RotZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerObjectRot(playerid, objectid, &Float:RotX, &Float:RotY, &Float:RotZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsValidPlayerObject(playerid, objectid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DestroyPlayerObject(playerid, objectid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "MovePlayerObject(playerid, objectid, Float:X, Float:Y, Float:Z, Float:Speed, Float:RotX = -1000.0, Float:RotY = -1000.0, Float:RotZ = -1000.0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "StopPlayerObject(playerid, objectid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AttachPlayerObjectToPlayer(objectplayer, objectid, attachplayer, Float:Offse"
    End Sub

    Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If

        TextBox2.Clear()
        TextBox2.Text = "SetSpawnInfo(playerid, team, skin, Float:x, Float:y, Float:z, Float:rotation, weapon1, weapon1_ammo, weapon2, weapon2_ammo, weapon3, weapon3_ammo);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SpawnPlayer(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerPos(playerid, Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerPosFindZ(playerid, Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerPos(playerid, &Float:x, &Float:y, &Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerFacingAngle(playerid,Float:ang);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerFacingAngle(playerid,&Float:ang);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerInRangeOfPoint(playerid, Float:range, Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:GetPlayerDistanceFromPoint(playerid, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerStreamedIn(playerid, forplayerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerInterior(playerid,interiorid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerInterior(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerHealth(playerid, Float:health);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerHealth(playerid, &Float:health);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerArmour(playerid, Float:armour);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerArmour(playerid, &Float:armour);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerAmmo(playerid, weaponslot, ammo);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerAmmo(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerWeaponState(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerTeam(playerid, teamid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerTeam(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerScore(playerid,score);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerScore(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerDrunkLevel(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerDrunkLevel(playerid, level);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerColor(playerid,color);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerColor(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerSkin(playerid, skinid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerSkin(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GivePlayerWeapon(playerid, weaponid, ammo);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ResetPlayerWeapons(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerArmedWeapon(playerid, weaponid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerWeaponData(playerid, slot, &weapons, &ammo);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GivePlayerMoney(playerid,money);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ResetPlayerMoney(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerName(playerid, const name[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerMoney(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerState(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerIp(playerid, name[], len);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerPing(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerWeapon(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerKeys(playerid, &keys, &updown, &leftright);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerName(playerid, const name[], len);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerTime(playerid, hour, minute);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerTime(playerid, &hour, &minute);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TogglePlayerClock(playerid, toggle);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerWeather(playerid, weather);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ForceClassSelection(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerWantedLevel(playerid, level);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerWantedLevel(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerFightingStyle(playerid, style);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerFightingStyle(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerVelocity(playerid, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerVelocity( playerid, &Float:X, &Float:Y, &Float:Z );"
        TextBox2.Text = TextBox2.Text & vbCrLf & "PlayCrimeReportForPlayer(playerid, suspectid, crime);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "PlayAudioStreamForPlayer(playerid, url[], Float:posX = 0.0, Float:posY = 0.0, Float:posZ = 0.0, Float:distance = 50.0, usepos = 0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "StopAudioStreamForPlayer(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerShopName(playerid, shopname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerSkillLevel(playerid, skill, level);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerSurfingVehicleID(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerSurfingObjectID(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "RemoveBuildingForPlayer(playerid, modelid, Float:fX, Float:fY, Float:fZ, Float:fRadius);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerAttachedObject(playerid, index, modelid, bone, Float:fOffsetX = 0.0, Float:fOffsetY = 0.0, Float:fOffsetZ = 0.0, Float:fRotX = 0.0, Float:fRotY = 0.0, Float:fRotZ = 0.0, Float:fScaleX = 1.0, Float:fScaleY = 1.0, Float:fScaleZ = 1.0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "RemovePlayerAttachedObject(playerid, index);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerAttachedObjectSlotUsed(playerid, index);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPVarInt(playerid, varname[], int_value);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPVarInt(playerid, varname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPVarString(playerid, varname[], string_value[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPVarString(playerid, varname[], string_return[], len);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPVarFloat(playerid, varname[], Float:float_value);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:GetPVarFloat(playerid, varname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DeletePVar(playerid, varname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPVarsUpperIndex(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPVarNameAtIndex(playerid, index, ret_varname[], ret_len);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPVarType(playerid, varname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerChatBubble(playerid, text[], color, Float:drawdistance, expiretime);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "PutPlayerInVehicle(playerid, vehicleid, seatid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerVehicleID(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerVehicleSeat(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "RemovePlayerFromVehicle(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TogglePlayerControllable(playerid, toggle);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "PlayerPlaySound(playerid, soundid, Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ApplyAnimation(playerid, animlib[], animname[], Float:fDelta, loop, lockx, locky, freeze, time, forcesync = 0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ClearAnimations(playerid, forcesync = 0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerAnimationIndex(playerid); // return the index of any running applied animations (0 if none are running)"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetAnimationName(index, animlib[], len1, animname[], len2); // get the animation lib/name for the index"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerSpecialAction(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerSpecialAction(playerid,actionid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerCheckpoint(playerid, Float:x, Float:y, Float:z, Float:size);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DisablePlayerCheckpoint(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerRaceCheckpoint(playerid, type, Float:x, Float:y, Float:z, Float:nextx, Float:nexty, Float:nextz, Float:size);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DisablePlayerRaceCheckpoint(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerWorldBounds(playerid,Float:x_max,Float:x_min,Float:y_max,Float:y_min);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerMarkerForPlayer(playerid, showplayerid, color);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ShowPlayerNameTagForPlayer(playerid, showplayerid, show);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerMapIcon(playerid, iconid, Float:x, Float:y, Float:z, markertype, color, style = MAPICON_LOCAL);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "RemovePlayerMapIcon(playerid, iconid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AllowPlayerTeleport(playerid, allow);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerCameraPos(playerid,Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerCameraLookAt(playerid, Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetCameraBehindPlayer(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerCameraPos(playerid, &Float:x, &Float:y, &Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerCameraFrontVector(playerid, &Float:x, &Float:y, &Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerCameraMode(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerConnected(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerInVehicle(playerid, vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerInAnyVehicle(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerInCheckpoint(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerInRaceCheckpoint(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetPlayerVirtualWorld(playerid, worldid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerVirtualWorld(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "EnableStuntBonusForPlayer(playerid, enable);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "EnableStuntBonusForAll(enable);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TogglePlayerSpectating(playerid, toggle);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "PlayerSpectatePlayer(playerid, targetplayerid, mode = SPECTATE_MODE_NORMAL);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "PlayerSpectateVehicle(playerid, targetvehicleid, mode = SPECTATE_MODE_NORMAL);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "StartRecordingPlayerData(playerid, recordtype, recordname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "StopRecordingPlayerData(playerid);"
    End Sub

    Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If

        TextBox2.Clear()
        TextBox2.Text = "CreateVehicle(vehicletype, Float:x, Float:y, Float:z, Float:rotation, color1, color2, respawn_delay);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DestroyVehicle(vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsVehicleStreamedIn(vehicleid, forplayerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehiclePos(vehicleid, &Float:x, &Float:y, &Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehiclePos(vehicleid, Float:x, Float:y, Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleZAngle(vehicleid, &Float:z_angle);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleRotationQuat(vehicleid, &Float:w, &Float:x, &Float:y, &Float:z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Float:GetVehicleDistanceFromPoint(vehicleid, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleZAngle(vehicleid, Float:z_angle);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleParamsForPlayer(vehicleid,playerid,objective,doorslocked);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ManualVehicleEngineAndLights();"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleParamsEx(vehicleid, engine, lights, alarm, doors, bonnet, boot, objective);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleParamsEx(vehicleid, &engine, &lights, &alarm, &doors, &bonnet, &boot, &objective);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleToRespawn(vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "LinkVehicleToInterior(vehicleid, interiorid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AddVehicleComponent(vehicleid, componentid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "RemoveVehicleComponent(vehicleid, componentid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ChangeVehicleColor(vehicleid, color1, color2);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ChangeVehiclePaintjob(vehicleid, paintjobid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleHealth(vehicleid, Float:health);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleHealth(vehicleid, &Float:health);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AttachTrailerToVehicle(trailerid, vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DetachTrailerFromVehicle(vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsTrailerAttachedToVehicle(vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleTrailer(vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleNumberPlate(vehicleid, numberplate[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleModel(vehicleid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleComponentInSlot(vehicleid, slot); // There is 1 slot for each CARMODTYPE_*"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleComponentType(component); // Find CARMODTYPE_* for component id"
        TextBox2.Text = TextBox2.Text & vbCrLf & "RepairVehicle(vehicleid); // Repairs the damage model and resets the health"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleVelocity(vehicleid, &Float:X, &Float:Y, &Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleVelocity(vehicleid, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleAngularVelocity(vehicleid, Float:X, Float:Y, Float:Z);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleDamageStatus(vehicleid, &panels, &doors, &lights, &tires);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "UpdateVehicleDamageStatus(vehicleid, panels, doors, lights, tires);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetVehicleVirtualWorld(vehicleid, worldid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetVehicleVirtualWorld(vehicleid);"
    End Sub

    Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click

        If TextBox2.Visible = False Then

            TextBox2.Visible = True

        End If
        TextBox2.Clear()
        TextBox2.Text = TextBox2.Text & "print()"
        TextBox2.Text = TextBox2.Text & vbCrLf & "print(const string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "printf(const format[], {Float,_}:...);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "format(output[], len, const format[], {Float,_}:...);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SendClientMessage(playerid, color, const message[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SendClientMessageToAll(color, const message[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SendPlayerMessageToPlayer(playerid, senderid, const message[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SendPlayerMessageToAll(senderid, const message[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SendDeathMessage(killer,killee,weapon);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GameTextForAll(const string[],time,style);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GameTextForPlayer(playerid,const string[],time,style);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetTimer(funcname[], interval, repeating);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetTimerEx(funcname[], interval, repeating, const format[], {Float,_}:...);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "KillTimer(timerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetTickCount();"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetMaxPlayers();"
        TextBox2.Text = TextBox2.Text & vbCrLf & "CallRemoteFunction(const function[], const format[], {Float,_}:...);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "CallLocalFunction(const function[], const format[], {Float,_}:...); "
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetGameModeText(const string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetTeamCount(count);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AddPlayerClass(modelid, Float:spawn_x, Float:spawn_y, Float:spawn_z, Float:z_angle, weapon1, weapon1_ammo, weapon2, weapon2_ammo, weapon3, weapon3_ammo);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AddPlayerClassEx(teamid, modelid, Float:spawn_x, Float:spawn_y, Float:spawn_z, Float:z_angle, weapon1, weapon1_ammo, weapon2, weapon2_ammo, weapon3, weapon3_ammo);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AddStaticVehicle(modelid, Float:spawn_x, Float:spawn_y, Float:spawn_z, Float:z_angle, color1, color2);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AddStaticVehicleEx(modelid, Float:spawn_x, Float:spawn_y, Float:spawn_z, Float:z_angle, color1, color2, respawn_delay);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AddStaticPickup(model, type, Float:X, Float:Y, Float:Z, virtualworld = 0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "CreatePickup(model, type, Float:X, Float:Y, Float:Z, virtualworld = 0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DestroyPickup(pickup);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ShowNameTags(show);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ShowPlayerMarkers(mode);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GameModeExit();"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetWorldTime(hour);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetWeaponName(weaponid, const weapon[], len);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "EnableTirePopping(enable);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AllowInteriorWeapons(allow);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetWeather(weatherid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetGravity(Float:gravity);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AllowAdminTeleport(allow);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetDeathDropAmount(amount);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "CreateExplosion(Float:X, Float:Y, Float:Z, type, Float:Radius);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "EnableZoneNames(enable);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "UsePlayerPedAnims();      "
        TextBox2.Text = TextBox2.Text & vbCrLf & "DisableInteriorEnterExits();  "
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetNameTagDrawDistance(Float:distance); "
        TextBox2.Text = TextBox2.Text & vbCrLf & "DisableNameTagLOS(); "
        TextBox2.Text = TextBox2.Text & vbCrLf & "LimitGlobalChatRadius(Float:chat_radius);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "LimitPlayerMarkerRadius(Float:marker_radius);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsPlayerAdmin(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Kick(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Ban(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "BanEx(playerid, const reason[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SendRconCommand(command[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetServerVarAsString(const varname[], buffer[], len);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetServerVarAsInt(const varname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetServerVarAsBool(const varname[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetPlayerNetworkStats(playerid, retstr[], retstr_size);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GetNetworkStats(retstr[], retstr_size);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Menu:CreateMenu(const title[], columns, Float:x, Float:y, Float:col1width, Float:col2width = 0.0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DestroyMenu(Menu:menuid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "AddMenuItem(Menu:menuid, column, const menutext[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "SetMenuColumnHeader(Menu:menuid, column, const columnheader[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "ShowMenuForPlayer(Menu:menuid, playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "HideMenuForPlayer(Menu:menuid, playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "IsValidMenu(Menu:menuid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DisableMenu(Menu:menuid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DisableMenuRow(Menu:menuid, row);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Menu:GetPlayerMenu(playerid);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Text:TextDrawCreate(Float:x, Float:y, text[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawDestroy(Text:text);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawLetterSize(Text:text, Float:x, Float:y);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawTextSize(Text:text, Float:x, Float:y);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawAlignment(Text:text, alignment);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawColor(Text:text, color);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawUseBox(Text:text, use);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawBoxColor(Text:text, color);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawSetShadow(Text:text, size);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawSetOutline(Text:text, size);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawBackgroundColor(Text:text, color);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawFont(Text:text, font);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawSetProportional(Text:text, set);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawShowForPlayer(playerid, Text:text);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawHideForPlayer(playerid, Text:text);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawShowForAll(Text:text);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawHideForAll(Text:text);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "TextDrawSetString(Text:text, string[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneCreate(Float:minx, Float:miny, Float:maxx, Float:maxy);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneDestroy(zone);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneShowForPlayer(playerid, zone, color);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneShowForAll(zone, color);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneHideForPlayer(playerid, zone);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneHideForAll(zone);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneFlashForPlayer(playerid, zone, flashcolor);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneFlashForAll(zone, flashcolor);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneStopFlashForPlayer(playerid, zone);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "GangZoneStopFlashForAll(zone);  "
        TextBox2.Text = TextBox2.Text & vbCrLf & "Text3D:Create3DTextLabel(text[], color, Float:X, Float:Y, Float:Z, Float:DrawDistance, virtualworld, testLOS=0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Delete3DTextLabel(Text3D:id);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Attach3DTextLabelToPlayer(Text3D:id, playerid, Float:OffsetX, Float:OffsetY, Float:OffsetZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Attach3DTextLabelToVehicle(Text3D:id, vehicleid, Float:OffsetX, Float:OffsetY, Float:OffsetZ);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "Update3DTextLabelText(Text3D:id, color, text[]);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "PlayerText3D:CreatePlayer3DTextLabel(playerid, text[], color, Float:X, Float:Y, Float:Z, Float:DrawDistance, attachedplayer=INVALID_PLAYER_ID, attachedvehicle=INVALID_VEHICLE_ID, testLOS=0);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "DeletePlayer3DTextLabel(playerid, PlayerText3D:id);"
        TextBox2.Text = TextBox2.Text & vbCrLf & "UpdatePlayer3DTextLabelText(playerid, PlayerText3D:id, color, text[]);"

    End Sub

    Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged_2(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged_3(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ListBox3_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged
        PictureBox214.Visible = False
        'Carros
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = False
        PictureBox10.Visible = False
        PictureBox11.Visible = False
        PictureBox12.Visible = False
        PictureBox13.Visible = False
        PictureBox14.Visible = False
        PictureBox15.Visible = False
        PictureBox16.Visible = False
        PictureBox17.Visible = False
        PictureBox18.Visible = False
        PictureBox19.Visible = False
        PictureBox20.Visible = False
        PictureBox21.Visible = False
        PictureBox22.Visible = False
        PictureBox23.Visible = False
        PictureBox24.Visible = False
        PictureBox25.Visible = False
        PictureBox26.Visible = False
        PictureBox27.Visible = False
        PictureBox28.Visible = False
        PictureBox29.Visible = False
        PictureBox30.Visible = False
        PictureBox31.Visible = False
        PictureBox32.Visible = False
        PictureBox33.Visible = False
        PictureBox34.Visible = False
        PictureBox35.Visible = False
        PictureBox36.Visible = False
        PictureBox37.Visible = False
        PictureBox38.Visible = False
        PictureBox39.Visible = False
        PictureBox40.Visible = False
        PictureBox41.Visible = False
        PictureBox42.Visible = False
        PictureBox43.Visible = False
        PictureBox44.Visible = False
        PictureBox45.Visible = False
        PictureBox46.Visible = False
        PictureBox47.Visible = False
        PictureBox48.Visible = False
        PictureBox49.Visible = False
        PictureBox50.Visible = False
        PictureBox51.Visible = False
        PictureBox52.Visible = False
        PictureBox53.Visible = False
        PictureBox54.Visible = False
        PictureBox55.Visible = False
        PictureBox56.Visible = False
        PictureBox57.Visible = False
        PictureBox58.Visible = False
        PictureBox59.Visible = False
        PictureBox60.Visible = False
        PictureBox61.Visible = False
        PictureBox62.Visible = False
        PictureBox63.Visible = False
        PictureBox64.Visible = False
        PictureBox65.Visible = False
        PictureBox66.Visible = False
        PictureBox67.Visible = False
        PictureBox68.Visible = False
        PictureBox69.Visible = False
        PictureBox70.Visible = False
        PictureBox71.Visible = False
        PictureBox72.Visible = False
        PictureBox73.Visible = False
        PictureBox74.Visible = False
        PictureBox75.Visible = False
        PictureBox76.Visible = False
        PictureBox77.Visible = False
        PictureBox78.Visible = False
        PictureBox79.Visible = False
        PictureBox80.Visible = False
        PictureBox81.Visible = False
        PictureBox82.Visible = False
        PictureBox83.Visible = False
        PictureBox84.Visible = False
        PictureBox85.Visible = False
        PictureBox86.Visible = False
        PictureBox87.Visible = False
        PictureBox88.Visible = False
        PictureBox89.Visible = False
        PictureBox90.Visible = False
        PictureBox91.Visible = False
        PictureBox92.Visible = False
        PictureBox92.Visible = False
        PictureBox94.Visible = False
        PictureBox95.Visible = False
        PictureBox96.Visible = False
        'Motos e Bicicletas
        PictureBox97.Visible = False
        PictureBox98.Visible = False
        PictureBox99.Visible = False
        PictureBox100.Visible = False
        PictureBox101.Visible = False
        PictureBox102.Visible = False
        PictureBox103.Visible = False
        PictureBox104.Visible = False
        PictureBox105.Visible = False
        PictureBox106.Visible = False
        PictureBox107.Visible = False
        PictureBox108.Visible = False
        PictureBox109.Visible = False
        PictureBox110.Visible = False
        'Aeronaves
        PictureBox111.Visible = False
        PictureBox112.Visible = False
        PictureBox113.Visible = False
        PictureBox114.Visible = False
        PictureBox115.Visible = False
        PictureBox116.Visible = False
        PictureBox117.Visible = False
        PictureBox118.Visible = False
        PictureBox119.Visible = False
        PictureBox120.Visible = False
        PictureBox121.Visible = False
        PictureBox122.Visible = False
        PictureBox123.Visible = False
        PictureBox124.Visible = False
        PictureBox125.Visible = False
        PictureBox126.Visible = False
        PictureBox127.Visible = False
        PictureBox128.Visible = False
        PictureBox129.Visible = False
        PictureBox130.Visible = False
        'Emergência e Militares
        PictureBox131.Visible = False
        PictureBox132.Visible = False
        PictureBox133.Visible = False
        PictureBox134.Visible = False
        PictureBox135.Visible = False
        PictureBox136.Visible = False
        PictureBox137.Visible = False
        PictureBox138.Visible = False
        PictureBox139.Visible = False
        PictureBox140.Visible = False
        PictureBox141.Visible = False
        PictureBox142.Visible = False
        PictureBox143.Visible = False
        PictureBox144.Visible = False
        PictureBox145.Visible = False
        'Veículos Grandes
        PictureBox146.Visible = False
        PictureBox147.Visible = False
        PictureBox148.Visible = False
        PictureBox149.Visible = False
        PictureBox150.Visible = False
        PictureBox151.Visible = False
        PictureBox152.Visible = False
        PictureBox153.Visible = False
        PictureBox154.Visible = False
        PictureBox155.Visible = False
        PictureBox156.Visible = False
        PictureBox157.Visible = False
        PictureBox158.Visible = False
        PictureBox159.Visible = False
        PictureBox160.Visible = False
        PictureBox161.Visible = False
        PictureBox162.Visible = False
        PictureBox163.Visible = False
        PictureBox164.Visible = False
        PictureBox165.Visible = False
        PictureBox166.Visible = False
        PictureBox167.Visible = False
        PictureBox168.Visible = False
        PictureBox169.Visible = False
        PictureBox170.Visible = False
        'Barcos e Outros
        PictureBox171.Visible = False
        PictureBox172.Visible = False
        PictureBox173.Visible = False
        PictureBox174.Visible = False
        PictureBox175.Visible = False
        PictureBox176.Visible = False
        PictureBox177.Visible = False
        PictureBox178.Visible = False
        PictureBox179.Visible = False
        PictureBox180.Visible = False
        PictureBox181.Visible = False
        PictureBox182.Visible = False
        PictureBox183.Visible = False
        PictureBox184.Visible = False
        PictureBox185.Visible = False
        PictureBox186.Visible = False
        PictureBox187.Visible = False
        PictureBox188.Visible = False
        PictureBox189.Visible = False
        PictureBox190.Visible = False
        PictureBox191.Visible = False
        PictureBox192.Visible = False
        PictureBox193.Visible = False
        PictureBox194.Visible = False
        PictureBox195.Visible = False
        PictureBox196.Visible = False
        PictureBox197.Visible = False
        PictureBox198.Visible = False
        PictureBox199.Visible = False
        PictureBox200.Visible = False
        PictureBox201.Visible = False
        PictureBox202.Visible = False
        PictureBox203.Visible = False
        PictureBox204.Visible = False
        PictureBox205.Visible = False
        PictureBox206.Visible = False
        PictureBox207.Visible = False
        PictureBox208.Visible = False
        PictureBox209.Visible = False
        PictureBox210.Visible = False
        PictureBox211.Visible = False
        Select Case (ListBox3.SelectedIndex)

            Case 0
                PictureBox1.Visible = True
                TextBox3.Text = "Modelo: 400" & vbCrLf & "Nome: Landstalker" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 1
                PictureBox2.Visible = True
                TextBox3.Text = "Modelo: 401" & vbCrLf & "Nome: Bravura" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 2
                PictureBox3.Visible = True
                TextBox3.Text = "Modelo: 402" & vbCrLf & "Nome: Buffalo" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 3
                PictureBox4.Visible = True
                TextBox3.Text = "Modelo: 404" & vbCrLf & "Nome: Perenniel" & vbCrLf & "Categoria: Estação" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 4
                PictureBox5.Visible = True
                TextBox3.Text = "Modelo: 405" & vbCrLf & "Nome: Sentinel" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 5
                PictureBox6.Visible = True
                TextBox3.Text = "Modelo: 409" & vbCrLf & "Nome: Stretch" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 6
                PictureBox7.Visible = True
                TextBox3.Text = "Modelo: 410" & vbCrLf & "Nome: Manana" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 7
                PictureBox8.Visible = True
                TextBox3.Text = "Modelo: 411" & vbCrLf & "Nome: Infernus" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 8
                PictureBox9.Visible = True
                TextBox3.Text = "Modelo: 412" & vbCrLf & "Nome: Voodoo" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Loco Low Co" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 9
                PictureBox10.Visible = True
                TextBox3.Text = "Modelo: 413" & vbCrLf & "Nome: Pony" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 10
                PictureBox11.Visible = True
                TextBox3.Text = "Modelo: 415" & vbCrLf & "Nome: Cheetah" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 11
                PictureBox12.Visible = True
                TextBox3.Text = "Modelo: 418" & vbCrLf & "Nome: Moonbeam" & vbCrLf & "Categoria: Estação" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 12
                PictureBox13.Visible = True
                TextBox3.Text = "Modelo: 419" & vbCrLf & "Nome: Esperanto" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 13
                PictureBox14.Visible = True
                TextBox3.Text = "Modelo: 420" & vbCrLf & "Nome: Taxi" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 14
                PictureBox15.Visible = True
                TextBox3.Text = "Modelo: 421" & vbCrLf & "Nome: Washington" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 15
                PictureBox16.Visible = True
                TextBox3.Text = "Modelo: 422" & vbCrLf & "Nome: Bobcat" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 16
                PictureBox17.Visible = True
                TextBox3.Text = "Modelo: 424" & vbCrLf & "Nome: BF Injection" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 17
                PictureBox18.Visible = True
                TextBox3.Text = "Modelo: 426" & vbCrLf & "Nome: Premier" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 18
                PictureBox19.Visible = True
                TextBox3.Text = "Modelo: 429" & vbCrLf & "Nome: Banshee" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 19
                PictureBox20.Visible = True
                TextBox3.Text = "Modelo: 434" & vbCrLf & "Nome: Hotknife" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 2"
            Case 20
                PictureBox21.Visible = True
                TextBox3.Text = "Modelo: 436" & vbCrLf & "Nome: Previon" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 21
                PictureBox22.Visible = True
                TextBox3.Text = "Modelo: 438" & vbCrLf & "Nome: Cabbie" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 22
                PictureBox23.Visible = True
                TextBox3.Text = "Modelo: 439" & vbCrLf & "Nome: Stallion" & vbCrLf & "Categoria: Conversível" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 23
                PictureBox24.Visible = True
                TextBox3.Text = "Modelo: 440" & vbCrLf & "Nome: Rumpo" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 24
                PictureBox25.Visible = True
                TextBox3.Text = "Modelo: 442" & vbCrLf & "Nome: Romero" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 25
                PictureBox26.Visible = True
                TextBox3.Text = "Modelo: 445" & vbCrLf & "Nome: Admiral" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 26
                PictureBox27.Visible = True
                TextBox3.Text = "Modelo: 451" & vbCrLf & "Nome: Turismo" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 27
                PictureBox28.Visible = True
                TextBox3.Text = "Modelo: 458" & vbCrLf & "Nome: Solair" & vbCrLf & "Categoria: Estação" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 28
                PictureBox29.Visible = True
                TextBox3.Text = "Modelo: 459" & vbCrLf & "Nome: Berkley's RC Van" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 29
                PictureBox30.Visible = True
                TextBox3.Text = "Modelo: 466" & vbCrLf & "Nome: Glendale" & vbCrLf & "Categoria: Estação" & vbCrLf & "Modificação: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 30
                PictureBox31.Visible = True
                TextBox3.Text = "Modelo: 467" & vbCrLf & "Nome: Oceanic" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificação: Transfeder" & vbCrLf & "portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 31
                PictureBox32.Visible = True
                TextBox3.Text = "Modelo: 474" & vbCrLf & "Nome: Hermes" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificação: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 32
                PictureBox33.Visible = True
                TextBox3.Text = "Modelo: 475" & vbCrLf & "Nome: Sabre" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 33
                PictureBox34.Visible = True
                TextBox3.Text = "Modelo: 477" & vbCrLf & "Nome: ZR-350" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 34
                PictureBox35.Visible = True
                TextBox3.Text = "Modelo: 478" & vbCrLf & "Nome: Walton" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 35
                PictureBox36.Visible = True
                TextBox3.Text = "Modelo: 479" & vbCrLf & "Nome: Regina" & vbCrLf & "Categoria: Estação" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 36
                PictureBox37.Visible = True
                TextBox3.Text = "Modelo: 480" & vbCrLf & "Nome: Comet" & vbCrLf & "Categoria: Convercível" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 37
                PictureBox38.Visible = True
                TextBox3.Text = "Modelo: 482" & vbCrLf & "Nome: Burrito" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 38
                PictureBox39.Visible = True
                TextBox3.Text = "Modelo: 483" & vbCrLf & "Nome: Camper" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 3" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 3"
            Case 39
                PictureBox40.Visible = True
                TextBox3.Text = "Modelo: 489" & vbCrLf & "Nome: Rancher" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 40
                PictureBox41.Visible = True
                TextBox3.Text = "Modelo: 491" & vbCrLf & "Nome: Virgo" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 41
                PictureBox42.Visible = True
                TextBox3.Text = "Modelo: 492" & vbCrLf & "Nome: GreenWood" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 42
                PictureBox43.Visible = True
                TextBox3.Text = "Modelo: 494" & vbCrLf & "Nome: Hotring Racer" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 43
                PictureBox44.Visible = True
                TextBox3.Text = "Modelo: 495" & vbCrLf & "Nome: SandKing" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 44
                PictureBox45.Visible = True
                TextBox3.Text = "Modelo: 496" & vbCrLf & "Nome: Blista Compact" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Dianteira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 45
                PictureBox46.Visible = True
                TextBox3.Text = "Modelo: 500" & vbCrLf & "Nome: Mesa" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 46
                PictureBox47.Visible = True
                TextBox3.Text = "Modelo: 502" & vbCrLf & "Nome: Rotring Racer" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 47
                PictureBox48.Visible = True
                TextBox3.Text = "Modelo: 503" & vbCrLf & "Nome: Rotring Racer" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 48
                PictureBox49.Visible = True
                TextBox3.Text = "Modelo: 504" & vbCrLf & "Nome: Bloodring Banger" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 49
                PictureBox50.Visible = True
                TextBox3.Text = "Modelo: 506" & vbCrLf & "Nome: Super GT" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 50
                PictureBox51.Visible = True
                TextBox3.Text = "Modelo: 507" & vbCrLf & "Nome: Elegant" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 51
                PictureBox52.Visible = True
                TextBox3.Text = "Modelo: 516" & vbCrLf & "Nome: Nebula" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificãções: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. passageiros: 4"
            Case 52
                PictureBox53.Visible = True
                TextBox3.Text = "Modelo: 517" & vbCrLf & "Nome: Majestic" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 53
                PictureBox54.Visible = True
                TextBox3.Text = "Modelo: 518" & vbCrLf & "Nome: Buccaneer" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 54
                PictureBox55.Visible = True
                TextBox3.Text = "Modelo: 525" & vbCrLf & "Nome: TowTruck" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 55
                PictureBox56.Visible = True
                TextBox3.Text = "Modelo: 526" & vbCrLf & "Nome: Fortune" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 56
                PictureBox57.Visible = True
                TextBox3.Text = "Modelo: 527" & vbCrLf & "Nome: Cadrona" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 57
                PictureBox58.Visible = True
                TextBox3.Text = "Modelo: 529" & vbCrLf & "Nome: Willard" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 58
                PictureBox59.Visible = True
                TextBox3.Text = "Modelo: 533" & vbCrLf & "Nome: Feltzer" & vbCrLf & "Categoria: Conversível" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 59
                PictureBox60.Visible = True
                TextBox3.Text = "Modelo: 534" & vbCrLf & "Nome: Remington" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Loco Low Co" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 60
                PictureBox61.Visible = True
                TextBox3.Text = "Modelo: 535" & vbCrLf & "Nome: Slamvan" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Loco Low Co" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 61
                PictureBox62.Visible = True
                TextBox3.Text = "Modelo: 536" & vbCrLf & "Nome: Blade" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Loco Low Co" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 62
                PictureBox63.Visible = True
                TextBox3.Text = "Modelo: 540" & vbCrLf & "Nome: Vicent" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 63
                PictureBox64.Visible = True
                TextBox3.Text = "Modelo: 541" & vbCrLf & "Nome: Bullet" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 64
                PictureBox65.Visible = True
                TextBox3.Text = "Modelo: 542" & vbCrLf & "Nome: Clover" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 65
                PictureBox66.Visible = True
                TextBox3.Text = "Modelo: 543" & vbCrLf & "Nome: Sadler" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 66
                PictureBox67.Visible = True
                TextBox3.Text = "Modelo: 545" & vbCrLf & "Nome: Hustler" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 67
                PictureBox68.Visible = True
                TextBox3.Text = "Modelo: 546" & vbCrLf & "Nome: Intruder" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 68
                PictureBox69.Visible = True
                TextBox3.Text = "Modelo: 547" & vbCrLf & "Nome: Primo" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 69
                PictureBox70.Visible = True
                TextBox3.Text = "Modelo: 549" & vbCrLf & "Nome: Tampa" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 70
                PictureBox71.Visible = True
                TextBox3.Text = "Modelo: 550" & vbCrLf & "Nome: Sunrise" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 71
                PictureBox72.Visible = True
                TextBox3.Text = "Modelo: 551" & vbCrLf & "Nome: Merit" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 72
                PictureBox73.Visible = True
                TextBox3.Text = "Modelo: 554" & vbCrLf & "Nome: Yosemite" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 73
                PictureBox74.Visible = True
                TextBox3.Text = "Modelo: 555" & vbCrLf & "Nome: Windsor" & vbCrLf & "Categoria: Conversível" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 74
                PictureBox75.Visible = True
                TextBox3.Text = "Modelo: 558" & vbCrLf & "Nome: Uranus" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Wheel Arch Angels" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 75
                PictureBox76.Visible = True
                TextBox3.Text = "Modelo: 559" & vbCrLf & "Nome: Jester" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Wheel Arch Angels" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 76
                PictureBox77.Visible = True
                TextBox3.Text = "Modelo: 560" & vbCrLf & "Nome: Sultan" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Wheel Arch Angels" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 77
                PictureBox78.Visible = True
                TextBox3.Text = "Modelo: 561" & vbCrLf & "Nome: Stratum" & vbCrLf & "Categoria: Estação" & vbCrLf & "Modificações: Wheel Arch Angels" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 78
                PictureBox79.Visible = True
                TextBox3.Text = "Modelo: 562" & vbCrLf & "Nome: Elegy" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Wheel Arch Angels" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 79
                PictureBox80.Visible = True
                TextBox3.Text = "Modelo: 565" & vbCrLf & "Nome: Flash" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Wheel Arch Angels" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 80
                PictureBox81.Visible = True
                TextBox3.Text = "Modelo: 566" & vbCrLf & "Nome: Tohama" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Loco Low Co" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 81
                PictureBox82.Visible = True
                TextBox3.Text = "Modelo: 567" & vbCrLf & "Nome: Savanna" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Loco Low Co" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 82
                PictureBox83.Visible = True
                TextBox3.Text = "Modelo: 568" & vbCrLf & "Nome: Bandito" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 83
                PictureBox84.Visible = True
                TextBox3.Text = "Modelo: 575" & vbCrLf & "Nome: Broadway" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 84
                PictureBox85.Visible = True
                TextBox3.Text = "Modelo: 576" & vbCrLf & "Nome: Tornado" & vbCrLf & "Categoria: Lowriders" & vbCrLf & "Modificações: Loco Low Co" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 85
                PictureBox86.Visible = True
                TextBox3.Text = "Modelo: 579" & vbCrLf & "Nome: Huntley" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 86
                PictureBox87.Visible = True
                TextBox3.Text = "Modelo: 580" & vbCrLf & "Nome: Stafford" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 87
                PictureBox88.Visible = True
                TextBox3.Text = "Modelo: 582" & vbCrLf & "Nome: Newsvan" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 88
                PictureBox89.Visible = True
                TextBox3.Text = "Modelo: 585" & vbCrLf & "Nome: Emperor" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 89
                PictureBox90.Visible = True
                TextBox3.Text = "Modelo: 587" & vbCrLf & "Nome: Euros" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 90
                PictureBox91.Visible = True
                TextBox3.Text = "Modelo: 589" & vbCrLf & "Nome: Club" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 91
                PictureBox92.Visible = True
                TextBox3.Text = "Modelo: 600" & vbCrLf & "Nome: Picador" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 92
                PictureBox93.Visible = True
                TextBox3.Text = "Modelo: 602" & vbCrLf & "Nome: Alpha" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 93
                PictureBox94.Visible = True
                TextBox3.Text = "Modelo: 603" & vbCrLf & "Nome: Phoenix" & vbCrLf & "Categoria: Esportivo" & vbCrLf & "Modificações: Transfeder" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 94
                PictureBox95.Visible = True
                TextBox3.Text = "Modelo: 504" & vbCrLf & "Nome: Glendale Shit" & vbCrLf & "Categoria: Salão" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 95
                PictureBox96.Visible = True
                TextBox3.Text = "Modelo: 605" & vbCrLf & "Nome: Sadler Shit" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
        End Select
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

    End Sub

    Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox4.SelectedIndexChanged
        PictureBox214.Visible = False
        'Carros
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = False
        PictureBox10.Visible = False
        PictureBox11.Visible = False
        PictureBox12.Visible = False
        PictureBox13.Visible = False
        PictureBox14.Visible = False
        PictureBox15.Visible = False
        PictureBox16.Visible = False
        PictureBox17.Visible = False
        PictureBox18.Visible = False
        PictureBox19.Visible = False
        PictureBox20.Visible = False
        PictureBox21.Visible = False
        PictureBox22.Visible = False
        PictureBox23.Visible = False
        PictureBox24.Visible = False
        PictureBox25.Visible = False
        PictureBox26.Visible = False
        PictureBox27.Visible = False
        PictureBox28.Visible = False
        PictureBox29.Visible = False
        PictureBox30.Visible = False
        PictureBox31.Visible = False
        PictureBox32.Visible = False
        PictureBox33.Visible = False
        PictureBox34.Visible = False
        PictureBox35.Visible = False
        PictureBox36.Visible = False
        PictureBox37.Visible = False
        PictureBox38.Visible = False
        PictureBox39.Visible = False
        PictureBox40.Visible = False
        PictureBox41.Visible = False
        PictureBox42.Visible = False
        PictureBox43.Visible = False
        PictureBox44.Visible = False
        PictureBox45.Visible = False
        PictureBox46.Visible = False
        PictureBox47.Visible = False
        PictureBox48.Visible = False
        PictureBox49.Visible = False
        PictureBox50.Visible = False
        PictureBox51.Visible = False
        PictureBox52.Visible = False
        PictureBox53.Visible = False
        PictureBox54.Visible = False
        PictureBox55.Visible = False
        PictureBox56.Visible = False
        PictureBox57.Visible = False
        PictureBox58.Visible = False
        PictureBox59.Visible = False
        PictureBox60.Visible = False
        PictureBox61.Visible = False
        PictureBox62.Visible = False
        PictureBox63.Visible = False
        PictureBox64.Visible = False
        PictureBox65.Visible = False
        PictureBox66.Visible = False
        PictureBox67.Visible = False
        PictureBox68.Visible = False
        PictureBox69.Visible = False
        PictureBox70.Visible = False
        PictureBox71.Visible = False
        PictureBox72.Visible = False
        PictureBox73.Visible = False
        PictureBox74.Visible = False
        PictureBox75.Visible = False
        PictureBox76.Visible = False
        PictureBox77.Visible = False
        PictureBox78.Visible = False
        PictureBox79.Visible = False
        PictureBox80.Visible = False
        PictureBox81.Visible = False
        PictureBox82.Visible = False
        PictureBox83.Visible = False
        PictureBox84.Visible = False
        PictureBox85.Visible = False
        PictureBox86.Visible = False
        PictureBox87.Visible = False
        PictureBox88.Visible = False
        PictureBox89.Visible = False
        PictureBox90.Visible = False
        PictureBox91.Visible = False
        PictureBox92.Visible = False
        PictureBox92.Visible = False
        PictureBox94.Visible = False
        PictureBox95.Visible = False
        PictureBox96.Visible = False
        'Motos e Bicicletas
        PictureBox97.Visible = False
        PictureBox98.Visible = False
        PictureBox99.Visible = False
        PictureBox100.Visible = False
        PictureBox101.Visible = False
        PictureBox102.Visible = False
        PictureBox103.Visible = False
        PictureBox104.Visible = False
        PictureBox105.Visible = False
        PictureBox106.Visible = False
        PictureBox107.Visible = False
        PictureBox108.Visible = False
        PictureBox109.Visible = False
        PictureBox110.Visible = False
        'Aeronaves
        PictureBox111.Visible = False
        PictureBox112.Visible = False
        PictureBox113.Visible = False
        PictureBox114.Visible = False
        PictureBox115.Visible = False
        PictureBox116.Visible = False
        PictureBox117.Visible = False
        PictureBox118.Visible = False
        PictureBox119.Visible = False
        PictureBox120.Visible = False
        PictureBox121.Visible = False
        PictureBox122.Visible = False
        PictureBox123.Visible = False
        PictureBox124.Visible = False
        PictureBox125.Visible = False
        PictureBox126.Visible = False
        PictureBox127.Visible = False
        PictureBox128.Visible = False
        PictureBox129.Visible = False
        PictureBox130.Visible = False
        'Emergência e Militares
        PictureBox131.Visible = False
        PictureBox132.Visible = False
        PictureBox133.Visible = False
        PictureBox134.Visible = False
        PictureBox135.Visible = False
        PictureBox136.Visible = False
        PictureBox137.Visible = False
        PictureBox138.Visible = False
        PictureBox139.Visible = False
        PictureBox140.Visible = False
        PictureBox141.Visible = False
        PictureBox142.Visible = False
        PictureBox143.Visible = False
        PictureBox144.Visible = False
        PictureBox145.Visible = False
        'Veículos Grandes
        PictureBox146.Visible = False
        PictureBox147.Visible = False
        PictureBox148.Visible = False
        PictureBox149.Visible = False
        PictureBox150.Visible = False
        PictureBox151.Visible = False
        PictureBox152.Visible = False
        PictureBox153.Visible = False
        PictureBox154.Visible = False
        PictureBox155.Visible = False
        PictureBox156.Visible = False
        PictureBox157.Visible = False
        PictureBox158.Visible = False
        PictureBox159.Visible = False
        PictureBox160.Visible = False
        PictureBox161.Visible = False
        PictureBox162.Visible = False
        PictureBox163.Visible = False
        PictureBox164.Visible = False
        PictureBox165.Visible = False
        PictureBox166.Visible = False
        PictureBox167.Visible = False
        PictureBox168.Visible = False
        PictureBox169.Visible = False
        PictureBox170.Visible = False
        'Barcos e Outros
        PictureBox171.Visible = False
        PictureBox172.Visible = False
        PictureBox173.Visible = False
        PictureBox174.Visible = False
        PictureBox175.Visible = False
        PictureBox176.Visible = False
        PictureBox177.Visible = False
        PictureBox178.Visible = False
        PictureBox179.Visible = False
        PictureBox180.Visible = False
        PictureBox181.Visible = False
        PictureBox182.Visible = False
        PictureBox183.Visible = False
        PictureBox184.Visible = False
        PictureBox185.Visible = False
        PictureBox186.Visible = False
        PictureBox187.Visible = False
        PictureBox188.Visible = False
        PictureBox189.Visible = False
        PictureBox190.Visible = False
        PictureBox191.Visible = False
        PictureBox192.Visible = False
        PictureBox193.Visible = False
        PictureBox194.Visible = False
        PictureBox195.Visible = False
        PictureBox196.Visible = False
        PictureBox197.Visible = False
        PictureBox198.Visible = False
        PictureBox199.Visible = False
        PictureBox200.Visible = False
        PictureBox201.Visible = False
        PictureBox202.Visible = False
        PictureBox203.Visible = False
        PictureBox204.Visible = False
        PictureBox205.Visible = False
        PictureBox206.Visible = False
        PictureBox207.Visible = False
        PictureBox208.Visible = False
        PictureBox209.Visible = False
        PictureBox210.Visible = False
        PictureBox211.Visible = False
        Select Case (ListBox4.SelectedIndex)
            Case 0
                PictureBox97.Visible = True
                TextBox3.Text = "Modelo: 468" & vbCrLf & "Nome: Sanchez" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 1
                PictureBox98.Visible = True
                TextBox3.Text = "Modelo: 448" & vbCrLf & "Nome: Pizzaboy" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 2
                PictureBox99.Visible = True
                TextBox3.Text = "Modelo: 461" & vbCrLf & "Nome: PCJ-600" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 3
                PictureBox100.Visible = True
                TextBox3.Text = "Modelo: 462" & vbCrLf & "Nome: Faggio" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 4
                PictureBox101.Visible = True
                TextBox3.Text = "Modelo: 4463" & vbCrLf & "Nome: Freeway" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 5
                PictureBox102.Visible = True
                TextBox3.Text = "Modelo: 471" & vbCrLf & "Nome: Quad" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 6
                PictureBox103.Visible = True
                TextBox3.Text = "Modelo: 521" & vbCrLf & "Nome: FCR-900" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 7
                PictureBox104.Visible = True
                TextBox3.Text = "Modelo: 522" & vbCrLf & "Nome: NRG-500" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 8
                PictureBox105.Visible = True
                TextBox3.Text = "Modelo: 523" & vbCrLf & "Nome: HPV1000" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 9
                PictureBox106.Visible = True
                TextBox3.Text = "Modelo: 581" & vbCrLf & "Nome: BF-400" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 10
                PictureBox107.Visible = True
                TextBox3.Text = "Modelo: 586" & vbCrLf & "Nome: Wayfarer" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 11
                PictureBox108.Visible = True
                TextBox3.Text = "Modelo: 481" & vbCrLf & "Nome: BMX" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 12
                PictureBox108.Visible = True
                TextBox3.Text = "Modelo: 509" & vbCrLf & "Nome: Bike" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 13
                PictureBox108.Visible = True
                TextBox3.Text = "Modelo: 510" & vbCrLf & "Nome: Montain Bike" & vbCrLf & "Categoria: Bikes" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
        End Select
    End Sub

    Private Sub ListBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox5.SelectedIndexChanged
        PictureBox214.Visible = False
        'Carros
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = False
        PictureBox10.Visible = False
        PictureBox11.Visible = False
        PictureBox12.Visible = False
        PictureBox13.Visible = False
        PictureBox14.Visible = False
        PictureBox15.Visible = False
        PictureBox16.Visible = False
        PictureBox17.Visible = False
        PictureBox18.Visible = False
        PictureBox19.Visible = False
        PictureBox20.Visible = False
        PictureBox21.Visible = False
        PictureBox22.Visible = False
        PictureBox23.Visible = False
        PictureBox24.Visible = False
        PictureBox25.Visible = False
        PictureBox26.Visible = False
        PictureBox27.Visible = False
        PictureBox28.Visible = False
        PictureBox29.Visible = False
        PictureBox30.Visible = False
        PictureBox31.Visible = False
        PictureBox32.Visible = False
        PictureBox33.Visible = False
        PictureBox34.Visible = False
        PictureBox35.Visible = False
        PictureBox36.Visible = False
        PictureBox37.Visible = False
        PictureBox38.Visible = False
        PictureBox39.Visible = False
        PictureBox40.Visible = False
        PictureBox41.Visible = False
        PictureBox42.Visible = False
        PictureBox43.Visible = False
        PictureBox44.Visible = False
        PictureBox45.Visible = False
        PictureBox46.Visible = False
        PictureBox47.Visible = False
        PictureBox48.Visible = False
        PictureBox49.Visible = False
        PictureBox50.Visible = False
        PictureBox51.Visible = False
        PictureBox52.Visible = False
        PictureBox53.Visible = False
        PictureBox54.Visible = False
        PictureBox55.Visible = False
        PictureBox56.Visible = False
        PictureBox57.Visible = False
        PictureBox58.Visible = False
        PictureBox59.Visible = False
        PictureBox60.Visible = False
        PictureBox61.Visible = False
        PictureBox62.Visible = False
        PictureBox63.Visible = False
        PictureBox64.Visible = False
        PictureBox65.Visible = False
        PictureBox66.Visible = False
        PictureBox67.Visible = False
        PictureBox68.Visible = False
        PictureBox69.Visible = False
        PictureBox70.Visible = False
        PictureBox71.Visible = False
        PictureBox72.Visible = False
        PictureBox73.Visible = False
        PictureBox74.Visible = False
        PictureBox75.Visible = False
        PictureBox76.Visible = False
        PictureBox77.Visible = False
        PictureBox78.Visible = False
        PictureBox79.Visible = False
        PictureBox80.Visible = False
        PictureBox81.Visible = False
        PictureBox82.Visible = False
        PictureBox83.Visible = False
        PictureBox84.Visible = False
        PictureBox85.Visible = False
        PictureBox86.Visible = False
        PictureBox87.Visible = False
        PictureBox88.Visible = False
        PictureBox89.Visible = False
        PictureBox90.Visible = False
        PictureBox91.Visible = False
        PictureBox92.Visible = False
        PictureBox92.Visible = False
        PictureBox94.Visible = False
        PictureBox95.Visible = False
        PictureBox96.Visible = False
        'Motos e Bicicletas
        PictureBox97.Visible = False
        PictureBox98.Visible = False
        PictureBox99.Visible = False
        PictureBox100.Visible = False
        PictureBox101.Visible = False
        PictureBox102.Visible = False
        PictureBox103.Visible = False
        PictureBox104.Visible = False
        PictureBox105.Visible = False
        PictureBox106.Visible = False
        PictureBox107.Visible = False
        PictureBox108.Visible = False
        PictureBox109.Visible = False
        PictureBox110.Visible = False
        'Aeronaves
        PictureBox111.Visible = False
        PictureBox112.Visible = False
        PictureBox113.Visible = False
        PictureBox114.Visible = False
        PictureBox115.Visible = False
        PictureBox116.Visible = False
        PictureBox117.Visible = False
        PictureBox118.Visible = False
        PictureBox119.Visible = False
        PictureBox120.Visible = False
        PictureBox121.Visible = False
        PictureBox122.Visible = False
        PictureBox123.Visible = False
        PictureBox124.Visible = False
        PictureBox125.Visible = False
        PictureBox126.Visible = False
        PictureBox127.Visible = False
        PictureBox128.Visible = False
        PictureBox129.Visible = False
        PictureBox130.Visible = False
        'Emergência e Militares
        PictureBox131.Visible = False
        PictureBox132.Visible = False
        PictureBox133.Visible = False
        PictureBox134.Visible = False
        PictureBox135.Visible = False
        PictureBox136.Visible = False
        PictureBox137.Visible = False
        PictureBox138.Visible = False
        PictureBox139.Visible = False
        PictureBox140.Visible = False
        PictureBox141.Visible = False
        PictureBox142.Visible = False
        PictureBox143.Visible = False
        PictureBox144.Visible = False
        PictureBox145.Visible = False
        'Veículos Grandes
        PictureBox146.Visible = False
        PictureBox147.Visible = False
        PictureBox148.Visible = False
        PictureBox149.Visible = False
        PictureBox150.Visible = False
        PictureBox151.Visible = False
        PictureBox152.Visible = False
        PictureBox153.Visible = False
        PictureBox154.Visible = False
        PictureBox155.Visible = False
        PictureBox156.Visible = False
        PictureBox157.Visible = False
        PictureBox158.Visible = False
        PictureBox159.Visible = False
        PictureBox160.Visible = False
        PictureBox161.Visible = False
        PictureBox162.Visible = False
        PictureBox163.Visible = False
        PictureBox164.Visible = False
        PictureBox165.Visible = False
        PictureBox166.Visible = False
        PictureBox167.Visible = False
        PictureBox168.Visible = False
        PictureBox169.Visible = False
        PictureBox170.Visible = False
        'Barcos e Outros
        PictureBox171.Visible = False
        PictureBox172.Visible = False
        PictureBox173.Visible = False
        PictureBox174.Visible = False
        PictureBox175.Visible = False
        PictureBox176.Visible = False
        PictureBox177.Visible = False
        PictureBox178.Visible = False
        PictureBox179.Visible = False
        PictureBox180.Visible = False
        PictureBox181.Visible = False
        PictureBox182.Visible = False
        PictureBox183.Visible = False
        PictureBox184.Visible = False
        PictureBox185.Visible = False
        PictureBox186.Visible = False
        PictureBox187.Visible = False
        PictureBox188.Visible = False
        PictureBox189.Visible = False
        PictureBox190.Visible = False
        PictureBox191.Visible = False
        PictureBox192.Visible = False
        PictureBox193.Visible = False
        PictureBox194.Visible = False
        PictureBox195.Visible = False
        PictureBox196.Visible = False
        PictureBox197.Visible = False
        PictureBox198.Visible = False
        PictureBox199.Visible = False
        PictureBox200.Visible = False
        PictureBox201.Visible = False
        PictureBox202.Visible = False
        PictureBox203.Visible = False
        PictureBox204.Visible = False
        PictureBox205.Visible = False
        PictureBox206.Visible = False
        PictureBox207.Visible = False
        PictureBox208.Visible = False
        PictureBox209.Visible = False
        PictureBox210.Visible = False
        PictureBox211.Visible = False
        Select Case (ListBox5.SelectedIndex)
            Case 0
                PictureBox111.Visible = True
                TextBox3.Text = "Modelo: 417" & vbCrLf & "Nome: Leviathan" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 1
                PictureBox112.Visible = True
                TextBox3.Text = "Modelo: 425" & vbCrLf & "Nome: Hunter" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 2
                PictureBox113.Visible = True
                TextBox3.Text = "Modelo: 447" & vbCrLf & "Nome: Seasparrow" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 3
                PictureBox114.Visible = True
                TextBox3.Text = "Modelo: 460" & vbCrLf & "Nome: Skimmer" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 4
                PictureBox115.Visible = True
                TextBox3.Text = "Modelo: 469" & vbCrLf & "Nome: Sparrow" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 5
                PictureBox116.Visible = True
                TextBox3.Text = "Modelo: 487" & vbCrLf & "Nome: Maverick" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 6
                PictureBox117.Visible = True
                TextBox3.Text = "Modelo: 488" & vbCrLf & "Nome: SAN News Maverick" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 7
                PictureBox118.Visible = True
                TextBox3.Text = "Modelo: 497" & vbCrLf & "Nome: Police Maverick" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 8
                PictureBox119.Visible = True
                TextBox3.Text = "Modelo: 548" & vbCrLf & "Nome: Cargobob" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 9
                PictureBox120.Visible = True
                TextBox3.Text = "Modelo: 563" & vbCrLf & "Nome: Raindance" & vbCrLf & "Categoria: Helicopteros" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 10
                PictureBox121.Visible = True
                TextBox3.Text = "Modelo: 476" & vbCrLf & "Nome: Rustler" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 11
                PictureBox122.Visible = True
                TextBox3.Text = "Modelo: 553" & vbCrLf & "Nome: Nevada" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: ---"
            Case 12
                PictureBox123.Visible = True
                TextBox3.Text = "Modelo: 577" & vbCrLf & "Nome: AT400" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: ---"
            Case 13
                PictureBox124.Visible = True
                TextBox3.Text = "Modelo: 592" & vbCrLf & "Nome: Amdromada" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: ---"
            Case 14
                PictureBox125.Visible = True
                TextBox3.Text = "Modelo: 519" & vbCrLf & "Nome: Shamal" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: ---"
            Case 15
                PictureBox126.Visible = True
                TextBox3.Text = "Modelo: 520" & vbCrLf & "Nome: Hydra" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 16
                PictureBox127.Visible = True
                TextBox3.Text = "Modelo: 593" & vbCrLf & "Nome: Dodo" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 17
                PictureBox128.Visible = True
                TextBox3.Text = "Modelo: 511" & vbCrLf & "Nome: Beagle" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 18
                PictureBox129.Visible = True
                TextBox3.Text = "Modelo: 512" & vbCrLf & "Nome: Cropduster" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 19
                PictureBox130.Visible = True
                TextBox3.Text = "Modelo: 513" & vbCrLf & "Nome: StuntPlane" & vbCrLf & "Categoria: Avião" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
        End Select
    End Sub

    Private Sub Listas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Listas.Click

    End Sub

    Private Sub ListBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox6.SelectedIndexChanged
        PictureBox214.Visible = False
        'Carros
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = False
        PictureBox10.Visible = False
        PictureBox11.Visible = False
        PictureBox12.Visible = False
        PictureBox13.Visible = False
        PictureBox14.Visible = False
        PictureBox15.Visible = False
        PictureBox16.Visible = False
        PictureBox17.Visible = False
        PictureBox18.Visible = False
        PictureBox19.Visible = False
        PictureBox20.Visible = False
        PictureBox21.Visible = False
        PictureBox22.Visible = False
        PictureBox23.Visible = False
        PictureBox24.Visible = False
        PictureBox25.Visible = False
        PictureBox26.Visible = False
        PictureBox27.Visible = False
        PictureBox28.Visible = False
        PictureBox29.Visible = False
        PictureBox30.Visible = False
        PictureBox31.Visible = False
        PictureBox32.Visible = False
        PictureBox33.Visible = False
        PictureBox34.Visible = False
        PictureBox35.Visible = False
        PictureBox36.Visible = False
        PictureBox37.Visible = False
        PictureBox38.Visible = False
        PictureBox39.Visible = False
        PictureBox40.Visible = False
        PictureBox41.Visible = False
        PictureBox42.Visible = False
        PictureBox43.Visible = False
        PictureBox44.Visible = False
        PictureBox45.Visible = False
        PictureBox46.Visible = False
        PictureBox47.Visible = False
        PictureBox48.Visible = False
        PictureBox49.Visible = False
        PictureBox50.Visible = False
        PictureBox51.Visible = False
        PictureBox52.Visible = False
        PictureBox53.Visible = False
        PictureBox54.Visible = False
        PictureBox55.Visible = False
        PictureBox56.Visible = False
        PictureBox57.Visible = False
        PictureBox58.Visible = False
        PictureBox59.Visible = False
        PictureBox60.Visible = False
        PictureBox61.Visible = False
        PictureBox62.Visible = False
        PictureBox63.Visible = False
        PictureBox64.Visible = False
        PictureBox65.Visible = False
        PictureBox66.Visible = False
        PictureBox67.Visible = False
        PictureBox68.Visible = False
        PictureBox69.Visible = False
        PictureBox70.Visible = False
        PictureBox71.Visible = False
        PictureBox72.Visible = False
        PictureBox73.Visible = False
        PictureBox74.Visible = False
        PictureBox75.Visible = False
        PictureBox76.Visible = False
        PictureBox77.Visible = False
        PictureBox78.Visible = False
        PictureBox79.Visible = False
        PictureBox80.Visible = False
        PictureBox81.Visible = False
        PictureBox82.Visible = False
        PictureBox83.Visible = False
        PictureBox84.Visible = False
        PictureBox85.Visible = False
        PictureBox86.Visible = False
        PictureBox87.Visible = False
        PictureBox88.Visible = False
        PictureBox89.Visible = False
        PictureBox90.Visible = False
        PictureBox91.Visible = False
        PictureBox92.Visible = False
        PictureBox92.Visible = False
        PictureBox94.Visible = False
        PictureBox95.Visible = False
        PictureBox96.Visible = False
        'Motos e Bicicletas
        PictureBox97.Visible = False
        PictureBox98.Visible = False
        PictureBox99.Visible = False
        PictureBox100.Visible = False
        PictureBox101.Visible = False
        PictureBox102.Visible = False
        PictureBox103.Visible = False
        PictureBox104.Visible = False
        PictureBox105.Visible = False
        PictureBox106.Visible = False
        PictureBox107.Visible = False
        PictureBox108.Visible = False
        PictureBox109.Visible = False
        PictureBox110.Visible = False
        'Aeronaves
        PictureBox111.Visible = False
        PictureBox112.Visible = False
        PictureBox113.Visible = False
        PictureBox114.Visible = False
        PictureBox115.Visible = False
        PictureBox116.Visible = False
        PictureBox117.Visible = False
        PictureBox118.Visible = False
        PictureBox119.Visible = False
        PictureBox120.Visible = False
        PictureBox121.Visible = False
        PictureBox122.Visible = False
        PictureBox123.Visible = False
        PictureBox124.Visible = False
        PictureBox125.Visible = False
        PictureBox126.Visible = False
        PictureBox127.Visible = False
        PictureBox128.Visible = False
        PictureBox129.Visible = False
        PictureBox130.Visible = False
        'Emergência e Militares
        PictureBox131.Visible = False
        PictureBox132.Visible = False
        PictureBox133.Visible = False
        PictureBox134.Visible = False
        PictureBox135.Visible = False
        PictureBox136.Visible = False
        PictureBox137.Visible = False
        PictureBox138.Visible = False
        PictureBox139.Visible = False
        PictureBox140.Visible = False
        PictureBox141.Visible = False
        PictureBox142.Visible = False
        PictureBox143.Visible = False
        PictureBox144.Visible = False
        PictureBox145.Visible = False
        'Veículos Grandes
        PictureBox146.Visible = False
        PictureBox147.Visible = False
        PictureBox148.Visible = False
        PictureBox149.Visible = False
        PictureBox150.Visible = False
        PictureBox151.Visible = False
        PictureBox152.Visible = False
        PictureBox153.Visible = False
        PictureBox154.Visible = False
        PictureBox155.Visible = False
        PictureBox156.Visible = False
        PictureBox157.Visible = False
        PictureBox158.Visible = False
        PictureBox159.Visible = False
        PictureBox160.Visible = False
        PictureBox161.Visible = False
        PictureBox162.Visible = False
        PictureBox163.Visible = False
        PictureBox164.Visible = False
        PictureBox165.Visible = False
        PictureBox166.Visible = False
        PictureBox167.Visible = False
        PictureBox168.Visible = False
        PictureBox169.Visible = False
        PictureBox170.Visible = False
        'Barcos e Outros
        PictureBox171.Visible = False
        PictureBox172.Visible = False
        PictureBox173.Visible = False
        PictureBox174.Visible = False
        PictureBox175.Visible = False
        PictureBox176.Visible = False
        PictureBox177.Visible = False
        PictureBox178.Visible = False
        PictureBox179.Visible = False
        PictureBox180.Visible = False
        PictureBox181.Visible = False
        PictureBox182.Visible = False
        PictureBox183.Visible = False
        PictureBox184.Visible = False
        PictureBox185.Visible = False
        PictureBox186.Visible = False
        PictureBox187.Visible = False
        PictureBox188.Visible = False
        PictureBox189.Visible = False
        PictureBox190.Visible = False
        PictureBox191.Visible = False
        PictureBox192.Visible = False
        PictureBox193.Visible = False
        PictureBox194.Visible = False
        PictureBox195.Visible = False
        PictureBox196.Visible = False
        PictureBox197.Visible = False
        PictureBox198.Visible = False
        PictureBox199.Visible = False
        PictureBox200.Visible = False
        PictureBox201.Visible = False
        PictureBox202.Visible = False
        PictureBox203.Visible = False
        PictureBox204.Visible = False
        PictureBox205.Visible = False
        PictureBox206.Visible = False
        PictureBox207.Visible = False
        PictureBox208.Visible = False
        PictureBox209.Visible = False
        PictureBox210.Visible = False
        PictureBox211.Visible = False
        Select Case (ListBox6.SelectedIndex)
            Case 0
                PictureBox131.Visible = True
                TextBox3.Text = "Modelo: 407" & vbCrLf & "Nome: Firetruck" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 1
                PictureBox132.Visible = True
                TextBox3.Text = "Modelo: 416" & vbCrLf & "Nome: Ambulance" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 2
                PictureBox133.Visible = True
                TextBox3.Text = "Modelo: 544" & vbCrLf & "Nome: Firetruck LA" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 3
                PictureBox134.Visible = True
                TextBox3.Text = "Modelo: 427" & vbCrLf & "Nome: Enforcer" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 4
                PictureBox135.Visible = True
                TextBox3.Text = "Modelo: 428" & vbCrLf & "Nome: Securicar" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 5
                PictureBox136.Visible = True
                TextBox3.Text = "Modelo: 432" & vbCrLf & "Nome: Rhino" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 6
                PictureBox137.Visible = True
                TextBox3.Text = "Modelo: 433" & vbCrLf & "Nome: Barracks" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 7
                PictureBox138.Visible = True
                TextBox3.Text = "Modelo: 470" & vbCrLf & "Nome: Patriot" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
            Case 8
                PictureBox139.Visible = True
                TextBox3.Text = "Modelo: 528" & vbCrLf & "Nome: FBI Truck" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 9
                PictureBox140.Visible = True
                TextBox3.Text = "Modelo: 596" & vbCrLf & "Nome: Police Car (LSPD)" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 10
                PictureBox141.Visible = True
                TextBox3.Text = "Modelo: 567" & vbCrLf & "Nome: Police Car (SFPD)" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 11
                PictureBox142.Visible = True
                TextBox3.Text = "Modelo: 569" & vbCrLf & "Nome: Police Car (LVPD)" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 12
                PictureBox143.Visible = True
                TextBox3.Text = "Modelo: 599" & vbCrLf & "Nome: Police Ranger" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 13
                PictureBox144.Visible = True
                TextBox3.Text = "Modelo: 561" & vbCrLf & "Nome: S.W.A.T" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 14
                PictureBox145.Visible = True
                TextBox3.Text = "Modelo: 490" & vbCrLf & "Nome: FBI Rancher" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 4"
        End Select
    End Sub

    Private Sub ListBox7_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox7.SelectedIndexChanged
        PictureBox214.Visible = False
        'Carros
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = False
        PictureBox10.Visible = False
        PictureBox11.Visible = False
        PictureBox12.Visible = False
        PictureBox13.Visible = False
        PictureBox14.Visible = False
        PictureBox15.Visible = False
        PictureBox16.Visible = False
        PictureBox17.Visible = False
        PictureBox18.Visible = False
        PictureBox19.Visible = False
        PictureBox20.Visible = False
        PictureBox21.Visible = False
        PictureBox22.Visible = False
        PictureBox23.Visible = False
        PictureBox24.Visible = False
        PictureBox25.Visible = False
        PictureBox26.Visible = False
        PictureBox27.Visible = False
        PictureBox28.Visible = False
        PictureBox29.Visible = False
        PictureBox30.Visible = False
        PictureBox31.Visible = False
        PictureBox32.Visible = False
        PictureBox33.Visible = False
        PictureBox34.Visible = False
        PictureBox35.Visible = False
        PictureBox36.Visible = False
        PictureBox37.Visible = False
        PictureBox38.Visible = False
        PictureBox39.Visible = False
        PictureBox40.Visible = False
        PictureBox41.Visible = False
        PictureBox42.Visible = False
        PictureBox43.Visible = False
        PictureBox44.Visible = False
        PictureBox45.Visible = False
        PictureBox46.Visible = False
        PictureBox47.Visible = False
        PictureBox48.Visible = False
        PictureBox49.Visible = False
        PictureBox50.Visible = False
        PictureBox51.Visible = False
        PictureBox52.Visible = False
        PictureBox53.Visible = False
        PictureBox54.Visible = False
        PictureBox55.Visible = False
        PictureBox56.Visible = False
        PictureBox57.Visible = False
        PictureBox58.Visible = False
        PictureBox59.Visible = False
        PictureBox60.Visible = False
        PictureBox61.Visible = False
        PictureBox62.Visible = False
        PictureBox63.Visible = False
        PictureBox64.Visible = False
        PictureBox65.Visible = False
        PictureBox66.Visible = False
        PictureBox67.Visible = False
        PictureBox68.Visible = False
        PictureBox69.Visible = False
        PictureBox70.Visible = False
        PictureBox71.Visible = False
        PictureBox72.Visible = False
        PictureBox73.Visible = False
        PictureBox74.Visible = False
        PictureBox75.Visible = False
        PictureBox76.Visible = False
        PictureBox77.Visible = False
        PictureBox78.Visible = False
        PictureBox79.Visible = False
        PictureBox80.Visible = False
        PictureBox81.Visible = False
        PictureBox82.Visible = False
        PictureBox83.Visible = False
        PictureBox84.Visible = False
        PictureBox85.Visible = False
        PictureBox86.Visible = False
        PictureBox87.Visible = False
        PictureBox88.Visible = False
        PictureBox89.Visible = False
        PictureBox90.Visible = False
        PictureBox91.Visible = False
        PictureBox92.Visible = False
        PictureBox92.Visible = False
        PictureBox94.Visible = False
        PictureBox95.Visible = False
        PictureBox96.Visible = False
        'Motos e Bicicletas
        PictureBox97.Visible = False
        PictureBox98.Visible = False
        PictureBox99.Visible = False
        PictureBox100.Visible = False
        PictureBox101.Visible = False
        PictureBox102.Visible = False
        PictureBox103.Visible = False
        PictureBox104.Visible = False
        PictureBox105.Visible = False
        PictureBox106.Visible = False
        PictureBox107.Visible = False
        PictureBox108.Visible = False
        PictureBox109.Visible = False
        PictureBox110.Visible = False
        'Aeronaves
        PictureBox111.Visible = False
        PictureBox112.Visible = False
        PictureBox113.Visible = False
        PictureBox114.Visible = False
        PictureBox115.Visible = False
        PictureBox116.Visible = False
        PictureBox117.Visible = False
        PictureBox118.Visible = False
        PictureBox119.Visible = False
        PictureBox120.Visible = False
        PictureBox121.Visible = False
        PictureBox122.Visible = False
        PictureBox123.Visible = False
        PictureBox124.Visible = False
        PictureBox125.Visible = False
        PictureBox126.Visible = False
        PictureBox127.Visible = False
        PictureBox128.Visible = False
        PictureBox129.Visible = False
        PictureBox130.Visible = False
        'Emergência e Militares
        PictureBox131.Visible = False
        PictureBox132.Visible = False
        PictureBox133.Visible = False
        PictureBox134.Visible = False
        PictureBox135.Visible = False
        PictureBox136.Visible = False
        PictureBox137.Visible = False
        PictureBox138.Visible = False
        PictureBox139.Visible = False
        PictureBox140.Visible = False
        PictureBox141.Visible = False
        PictureBox142.Visible = False
        PictureBox143.Visible = False
        PictureBox144.Visible = False
        PictureBox145.Visible = False
        'Veículos Grandes
        PictureBox146.Visible = False
        PictureBox147.Visible = False
        PictureBox148.Visible = False
        PictureBox149.Visible = False
        PictureBox150.Visible = False
        PictureBox151.Visible = False
        PictureBox152.Visible = False
        PictureBox153.Visible = False
        PictureBox154.Visible = False
        PictureBox155.Visible = False
        PictureBox156.Visible = False
        PictureBox157.Visible = False
        PictureBox158.Visible = False
        PictureBox159.Visible = False
        PictureBox160.Visible = False
        PictureBox161.Visible = False
        PictureBox162.Visible = False
        PictureBox163.Visible = False
        PictureBox164.Visible = False
        PictureBox165.Visible = False
        PictureBox166.Visible = False
        PictureBox167.Visible = False
        PictureBox168.Visible = False
        PictureBox169.Visible = False
        PictureBox170.Visible = False
        'Barcos e Outros
        PictureBox171.Visible = False
        PictureBox172.Visible = False
        PictureBox173.Visible = False
        PictureBox174.Visible = False
        PictureBox175.Visible = False
        PictureBox176.Visible = False
        PictureBox177.Visible = False
        PictureBox178.Visible = False
        PictureBox179.Visible = False
        PictureBox180.Visible = False
        PictureBox181.Visible = False
        PictureBox182.Visible = False
        PictureBox183.Visible = False
        PictureBox184.Visible = False
        PictureBox185.Visible = False
        PictureBox186.Visible = False
        PictureBox187.Visible = False
        PictureBox188.Visible = False
        PictureBox189.Visible = False
        PictureBox190.Visible = False
        PictureBox191.Visible = False
        PictureBox192.Visible = False
        PictureBox193.Visible = False
        PictureBox194.Visible = False
        PictureBox195.Visible = False
        PictureBox196.Visible = False
        PictureBox197.Visible = False
        PictureBox198.Visible = False
        PictureBox199.Visible = False
        PictureBox200.Visible = False
        PictureBox201.Visible = False
        PictureBox202.Visible = False
        PictureBox203.Visible = False
        PictureBox204.Visible = False
        PictureBox205.Visible = False
        PictureBox206.Visible = False
        PictureBox207.Visible = False
        PictureBox208.Visible = False
        PictureBox209.Visible = False
        PictureBox210.Visible = False
        PictureBox211.Visible = False
        Select Case (ListBox7.SelectedIndex)
            Case 0
                PictureBox146.Visible = True
                TextBox3.Text = "Modelo: 403" & vbCrLf & "Nome: Linerunner" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 1
                PictureBox147.Visible = True
                TextBox3.Text = "Modelo: 406" & vbCrLf & "Nome: Dumper" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 2
                PictureBox148.Visible = True
                TextBox3.Text = "Modelo: 408" & vbCrLf & "Nome: Trashmaster" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 3
                PictureBox149.Visible = True
                TextBox3.Text = "Modelo: 414" & vbCrLf & "Nome: Mule" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 4
                PictureBox150.Visible = True
                TextBox3.Text = "Modelo: 423" & vbCrLf & "Nome: Mr Whoopee" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 5
                PictureBox151.Visible = True
                TextBox3.Text = "Modelo: 431" & vbCrLf & "Nome: Bus" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: ---"
            Case 6
                PictureBox152.Visible = True
                TextBox3.Text = "Modelo: 437" & vbCrLf & "Nome: Coach" & vbCrLf & "Categoria: Serviço Publico" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: ---"
            Case 7
                PictureBox153.Visible = True
                TextBox3.Text = "Modelo: 443" & vbCrLf & "Nome: Parker" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 8
                PictureBox154.Visible = True
                TextBox3.Text = "Modelo: 444" & vbCrLf & "Nome: Monster" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira e Dianteira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 9
                PictureBox155.Visible = True
                TextBox3.Text = "Modelo: 445" & vbCrLf & "Nome: Flatbet" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 10
                PictureBox156.Visible = True
                TextBox3.Text = "Modelo: 446" & vbCrLf & "Nome: Yankee" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 11
                PictureBox157.Visible = True
                TextBox3.Text = "Modelo: 486" & vbCrLf & "Nome: Dozer" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Dianteira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 12
                PictureBox158.Visible = True
                TextBox3.Text = "Modelo: 498" & vbCrLf & "Nome: Boxville" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 4" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
            Case 13
                PictureBox159.Visible = True
                TextBox3.Text = "Modelo: 499" & vbCrLf & "Nome: Benson" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 14
                PictureBox160.Visible = True
                TextBox3.Text = "Modelo: 508" & vbCrLf & "Nome: Journey" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 15
                PictureBox161.Visible = True
                TextBox3.Text = "Modelo: 514" & vbCrLf & "Nome: Tanker" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 16
                PictureBox162.Visible = True
                TextBox3.Text = "Modelo: 515" & vbCrLf & "Nome: Roadtrain" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 17
                PictureBox163.Visible = True
                TextBox3.Text = "Modelo: 524" & vbCrLf & "Nome: Cement Truck" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 18
                PictureBox164.Visible = True
                TextBox3.Text = "Modelo: 532" & vbCrLf & "Nome: Combine Harvester" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 1" & vbCrLf & "Tração: Traseira e Dianteira" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 19
                PictureBox165.Visible = True
                TextBox3.Text = "Modelo: 552" & vbCrLf & "Nome: Utility Van" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 20
                PictureBox166.Visible = True
                TextBox3.Text = "Modelo: 556" & vbCrLf & "Nome: Monster ""A""" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 21
                PictureBox167.Visible = True
                TextBox3.Text = "Modelo: 557" & vbCrLf & "Nome: Monster ""B""" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 22
                PictureBox168.Visible = True
                TextBox3.Text = "Modelo: 573" & vbCrLf & "Nome: Dune" & vbCrLf & "Categoria: Off Road" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 23
                PictureBox169.Visible = True
                TextBox3.Text = "Modelo: 578" & vbCrLf & "Nome: DFT-30" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 24
                PictureBox170.Visible = True
                TextBox3.Text = "Modelo: 609" & vbCrLf & "Nome: Boxville" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 4"
        End Select
    End Sub

    Private Sub ListBox8_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox8.SelectedIndexChanged
        PictureBox214.Visible = False
        'Carros
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = False
        PictureBox10.Visible = False
        PictureBox11.Visible = False
        PictureBox12.Visible = False
        PictureBox13.Visible = False
        PictureBox14.Visible = False
        PictureBox15.Visible = False
        PictureBox16.Visible = False
        PictureBox17.Visible = False
        PictureBox18.Visible = False
        PictureBox19.Visible = False
        PictureBox20.Visible = False
        PictureBox21.Visible = False
        PictureBox22.Visible = False
        PictureBox23.Visible = False
        PictureBox24.Visible = False
        PictureBox25.Visible = False
        PictureBox26.Visible = False
        PictureBox27.Visible = False
        PictureBox28.Visible = False
        PictureBox29.Visible = False
        PictureBox30.Visible = False
        PictureBox31.Visible = False
        PictureBox32.Visible = False
        PictureBox33.Visible = False
        PictureBox34.Visible = False
        PictureBox35.Visible = False
        PictureBox36.Visible = False
        PictureBox37.Visible = False
        PictureBox38.Visible = False
        PictureBox39.Visible = False
        PictureBox40.Visible = False
        PictureBox41.Visible = False
        PictureBox42.Visible = False
        PictureBox43.Visible = False
        PictureBox44.Visible = False
        PictureBox45.Visible = False
        PictureBox46.Visible = False
        PictureBox47.Visible = False
        PictureBox48.Visible = False
        PictureBox49.Visible = False
        PictureBox50.Visible = False
        PictureBox51.Visible = False
        PictureBox52.Visible = False
        PictureBox53.Visible = False
        PictureBox54.Visible = False
        PictureBox55.Visible = False
        PictureBox56.Visible = False
        PictureBox57.Visible = False
        PictureBox58.Visible = False
        PictureBox59.Visible = False
        PictureBox60.Visible = False
        PictureBox61.Visible = False
        PictureBox62.Visible = False
        PictureBox63.Visible = False
        PictureBox64.Visible = False
        PictureBox65.Visible = False
        PictureBox66.Visible = False
        PictureBox67.Visible = False
        PictureBox68.Visible = False
        PictureBox69.Visible = False
        PictureBox70.Visible = False
        PictureBox71.Visible = False
        PictureBox72.Visible = False
        PictureBox73.Visible = False
        PictureBox74.Visible = False
        PictureBox75.Visible = False
        PictureBox76.Visible = False
        PictureBox77.Visible = False
        PictureBox78.Visible = False
        PictureBox79.Visible = False
        PictureBox80.Visible = False
        PictureBox81.Visible = False
        PictureBox82.Visible = False
        PictureBox83.Visible = False
        PictureBox84.Visible = False
        PictureBox85.Visible = False
        PictureBox86.Visible = False
        PictureBox87.Visible = False
        PictureBox88.Visible = False
        PictureBox89.Visible = False
        PictureBox90.Visible = False
        PictureBox91.Visible = False
        PictureBox92.Visible = False
        PictureBox92.Visible = False
        PictureBox94.Visible = False
        PictureBox95.Visible = False
        PictureBox96.Visible = False
        'Motos e Bicicletas
        PictureBox97.Visible = False
        PictureBox98.Visible = False
        PictureBox99.Visible = False
        PictureBox100.Visible = False
        PictureBox101.Visible = False
        PictureBox102.Visible = False
        PictureBox103.Visible = False
        PictureBox104.Visible = False
        PictureBox105.Visible = False
        PictureBox106.Visible = False
        PictureBox107.Visible = False
        PictureBox108.Visible = False
        PictureBox109.Visible = False
        PictureBox110.Visible = False
        'Aeronaves
        PictureBox111.Visible = False
        PictureBox112.Visible = False
        PictureBox113.Visible = False
        PictureBox114.Visible = False
        PictureBox115.Visible = False
        PictureBox116.Visible = False
        PictureBox117.Visible = False
        PictureBox118.Visible = False
        PictureBox119.Visible = False
        PictureBox120.Visible = False
        PictureBox121.Visible = False
        PictureBox122.Visible = False
        PictureBox123.Visible = False
        PictureBox124.Visible = False
        PictureBox125.Visible = False
        PictureBox126.Visible = False
        PictureBox127.Visible = False
        PictureBox128.Visible = False
        PictureBox129.Visible = False
        PictureBox130.Visible = False
        'Emergência e Militares
        PictureBox131.Visible = False
        PictureBox132.Visible = False
        PictureBox133.Visible = False
        PictureBox134.Visible = False
        PictureBox135.Visible = False
        PictureBox136.Visible = False
        PictureBox137.Visible = False
        PictureBox138.Visible = False
        PictureBox139.Visible = False
        PictureBox140.Visible = False
        PictureBox141.Visible = False
        PictureBox142.Visible = False
        PictureBox143.Visible = False
        PictureBox144.Visible = False
        PictureBox145.Visible = False
        'Veículos Grandes
        PictureBox146.Visible = False
        PictureBox147.Visible = False
        PictureBox148.Visible = False
        PictureBox149.Visible = False
        PictureBox150.Visible = False
        PictureBox151.Visible = False
        PictureBox152.Visible = False
        PictureBox153.Visible = False
        PictureBox154.Visible = False
        PictureBox155.Visible = False
        PictureBox156.Visible = False
        PictureBox157.Visible = False
        PictureBox158.Visible = False
        PictureBox159.Visible = False
        PictureBox160.Visible = False
        PictureBox161.Visible = False
        PictureBox162.Visible = False
        PictureBox163.Visible = False
        PictureBox164.Visible = False
        PictureBox165.Visible = False
        PictureBox166.Visible = False
        PictureBox167.Visible = False
        PictureBox168.Visible = False
        PictureBox169.Visible = False
        PictureBox170.Visible = False
        'Barcos e Outros
        PictureBox171.Visible = False
        PictureBox172.Visible = False
        PictureBox173.Visible = False
        PictureBox174.Visible = False
        PictureBox175.Visible = False
        PictureBox176.Visible = False
        PictureBox177.Visible = False
        PictureBox178.Visible = False
        PictureBox179.Visible = False
        PictureBox180.Visible = False
        PictureBox181.Visible = False
        PictureBox182.Visible = False
        PictureBox183.Visible = False
        PictureBox184.Visible = False
        PictureBox185.Visible = False
        PictureBox186.Visible = False
        PictureBox187.Visible = False
        PictureBox188.Visible = False
        PictureBox189.Visible = False
        PictureBox190.Visible = False
        PictureBox191.Visible = False
        PictureBox192.Visible = False
        PictureBox193.Visible = False
        PictureBox194.Visible = False
        PictureBox195.Visible = False
        PictureBox196.Visible = False
        PictureBox197.Visible = False
        PictureBox198.Visible = False
        PictureBox199.Visible = False
        PictureBox200.Visible = False
        PictureBox201.Visible = False
        PictureBox202.Visible = False
        PictureBox203.Visible = False
        PictureBox204.Visible = False
        PictureBox205.Visible = False
        PictureBox206.Visible = False
        PictureBox207.Visible = False
        PictureBox208.Visible = False
        PictureBox209.Visible = False
        PictureBox210.Visible = False
        PictureBox211.Visible = False
        Select Case (ListBox8.SelectedIndex)
            Case 0
                PictureBox171.Visible = True
                TextBox3.Text = "Modelo: 430" & vbCrLf & "Nome: Predator" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 1
                PictureBox172.Visible = True
                TextBox3.Text = "Modelo: 446" & vbCrLf & "Nome: Squallo" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 2
                PictureBox173.Visible = True
                TextBox3.Text = "Modelo: 452" & vbCrLf & "Nome: Speeder" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 2"
            Case 3
                PictureBox174.Visible = True
                TextBox3.Text = "Modelo: 553" & vbCrLf & "Nome: Reefer" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 4
                PictureBox175.Visible = True
                TextBox3.Text = "Modelo: 554" & vbCrLf & "Nome: Tropic" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 5
                PictureBox176.Visible = True
                TextBox3.Text = "Modelo: 472" & vbCrLf & "Nome: Coastguard" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 6
                PictureBox177.Visible = True
                TextBox3.Text = "Modelo: 473" & vbCrLf & "Nome: Dinghy" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 7
                PictureBox178.Visible = True
                TextBox3.Text = "Modelo: 484" & vbCrLf & "Nome: Marquis" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 8
                PictureBox179.Visible = True
                TextBox3.Text = "Modelo: 493" & vbCrLf & "Nome: JetMax" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 9
                PictureBox180.Visible = True
                TextBox3.Text = "Modelo: 539" & vbCrLf & "Nome: Vortex" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 10
                PictureBox181.Visible = True
                TextBox3.Text = "Modelo: 595" & vbCrLf & "Nome: Launch" & vbCrLf & "Categoria: Barcos" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 11
                PictureBox182.Visible = True
                TextBox3.Text = "Modelo: 435" & vbCrLf & "Nome: Article Trailer" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 0"
            Case 12
                PictureBox183.Visible = True
                TextBox3.Text = "Modelo: 441" & vbCrLf & "Nome: RC Bandit" & vbCrLf & "Categoria: Veículo RC" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 13
                PictureBox184.Visible = True
                TextBox3.Text = "Modelo: 449" & vbCrLf & "Nome: Tram" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 14
                PictureBox185.Visible = True
                TextBox3.Text = "Modelo: 450" & vbCrLf & "Nome: Article Trailer 2" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 0"
            Case 15
                PictureBox186.Visible = True
                TextBox3.Text = "Modelo: 457" & vbCrLf & "Nome: Caddy" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 16
                PictureBox187.Visible = True
                TextBox3.Text = "Modelo: 464" & vbCrLf & "Nome: RC Baron" & vbCrLf & "Categoria: Veículo RC" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 17
                PictureBox188.Visible = True
                TextBox3.Text = "Modelo: 465" & vbCrLf & "Nome: RC Raider" & vbCrLf & "Categoria: Veículo RC" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 18
                PictureBox189.Visible = True
                TextBox3.Text = "Modelo: 485" & vbCrLf & "Nome: Baggage" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 19
                PictureBox190.Visible = True
                TextBox3.Text = "Modelo: 501" & vbCrLf & "Nome: RC Goblin" & vbCrLf & "Categoria: Veículo RC" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 20
                PictureBox191.Visible = True
                TextBox3.Text = "Modelo: 530" & vbCrLf & "Nome: Forklift" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Dianteira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 21
                PictureBox192.Visible = True
                TextBox3.Text = "Modelo: 531" & vbCrLf & "Nome: Tractor" & vbCrLf & "Categoria: Industrial" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 22
                PictureBox193.Visible = True
                TextBox3.Text = "Modelo: 537" & vbCrLf & "Nome: Freight (Train)" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 2"
            Case 23
                PictureBox194.Visible = True
                TextBox3.Text = "Modelo: 538" & vbCrLf & "Nome: Brownstreak (Train)" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 24
                PictureBox195.Visible = True
                TextBox3.Text = "Modelo: 569" & vbCrLf & "Nome: Freight Flat Trailer (Train)" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 25
                PictureBox196.Visible = True
                TextBox3.Text = "Modelo: 570" & vbCrLf & "Nome: Streak Trailer (Train)" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 26
                PictureBox197.Visible = True
                TextBox3.Text = "Modelo: 564" & vbCrLf & "Nome: RC Tiger" & vbCrLf & "Categoria: Veículo RC" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 27
                PictureBox198.Visible = True
                TextBox3.Text = "Modelo: 571" & vbCrLf & "Nome: Kart" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 28
                PictureBox199.Visible = True
                TextBox3.Text = "Modelo: 572" & vbCrLf & "Nome: Mower" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 1"
            Case 29
                PictureBox200.Visible = True
                TextBox3.Text = "Modelo: 574" & vbCrLf & "Nome: Sweeper" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 30
                PictureBox201.Visible = True
                TextBox3.Text = "Modelo: 583" & vbCrLf & "Nome: Tug" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária e Secundária" & vbCrLf & "Cap. Passageiros: 1"
            Case 31
                PictureBox202.Visible = True
                TextBox3.Text = "Modelo: 584" & vbCrLf & "Nome: Petrol Trailer" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 32
                PictureBox203.Visible = True
                TextBox3.Text = "Modelo: 588" & vbCrLf & "Nome: Hotdog" & vbCrLf & "Categoria: Veículo único" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: 2" & vbCrLf & "Tração: Traseira" & vbCrLf & "Cores: Primária" & vbCrLf & "Cap. Passageiros: 2"
            Case 33
                PictureBox204.Visible = True
                TextBox3.Text = "Modelo: 590" & vbCrLf & "Nome: Freight Box Trailer (Train)" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 34
                PictureBox205.Visible = True
                TextBox3.Text = "Modelo: 591" & vbCrLf & "Nome: Article Trailer 3" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 35
                PictureBox206.Visible = True
                TextBox3.Text = "Modelo: 594" & vbCrLf & "Nome: RC Cam" & vbCrLf & "Categoria: Veículo RC" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 1"
            Case 36
                PictureBox207.Visible = True
                TextBox3.Text = "Modelo: 606" & vbCrLf & "Nome: Baggage Trailer ""A""" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 37
                PictureBox208.Visible = True
                TextBox3.Text = "Modelo: 607" & vbCrLf & "Nome: Baggage Trailer ""B""" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 38
                PictureBox209.Visible = True
                TextBox3.Text = "Modelo: 608" & vbCrLf & "Nome: Tug Stairs Trailer" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 39
                PictureBox210.Visible = True
                TextBox3.Text = "Modelo: 610" & vbCrLf & "Nome: Farm Trailer" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
            Case 40
                PictureBox211.Visible = True
                TextBox3.Text = "Modelo: 611" & vbCrLf & "Nome: Utility Trailer" & vbCrLf & "Categoria: Trailers" & vbCrLf & "Modificações: ---" & vbCrLf & "Portas: ---" & vbCrLf & "Tração: ---" & vbCrLf & "Cores: ---" & vbCrLf & "Cap. Passageiros: 0"
        End Select
    End Sub

    Private Sub RichTextBox2_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged

    End Sub

    Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
        MsgBox("À esquerda da pagina há 8 das mais conhecidas includes, ao clicar em uma delas será mostrado na caixa à direita todas as funções contidas na include assim como seus parâmetros.")
    End Sub

    Private Sub Button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click
        MsgBox("Há 6 tabelas no centro da pagina separando os veículos em categorias, em cada item há o ID e o Nome de um veículo, ao clicar sobre o item é apresentado no campo à direta informações úteis como categoria, nome, modelo, tração, esquematização de cores e capacidade de passageiros de cada veículo. Acima do campo, uma foto do veículo selecionado.")
    End Sub

    Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        Process.Start("http://www.youtube.com/watch?v=uWvHgEBdt2o")
    End Sub

    Private Sub ListBox9_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox9.SelectedIndexChanged
        Select Case (ListBox9.SelectedIndex)
            Case 0
                LBSelect = 0
                TextBox4.Text = "Autor: dudaefj" & vbCrLf & "Data: 14/10/2011" & vbCrLf & "Categoria: Tabelas" & vbCrLf & "Fonte: Fórum samp"
            Case 1
                LBSelect = 1
                TextBox4.Text = "Autor: Incognito" & vbCrLf & "Data: 17/10/2009" & vbCrLf & "Categoria: Plugin" & vbCrLf & "Fonte: Fórum samp"
            Case 2
                LBSelect = 2
                TextBox4.Text = "Autor: ғαιιοцт" & vbCrLf & "Data: 02/01/2010" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 3
                LBSelect = 3
                TextBox4.Text = "Autor: Y_Less" & vbCrLf & "Data: 13/01/2009" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 4
                LBSelect = 4
                TextBox4.Text = "Autor: Y_Less" & vbCrLf & "Data: 18/08/2010" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 5
                LBSelect = 5
                TextBox4.Text = "Autor: Zeex" & vbCrLf & "Data: 14/08/2009" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 6
                LBSelect = 6
                TextBox4.Text = "Autor: Y_Less" & vbCrLf & "Data: 10/09/2010" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 7
                LBSelect = 7
                TextBox4.Text = "Autor: [DRuG]Slick" & vbCrLf & "Data: 18/12/2008" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 8
                LBSelect = 8
                TextBox4.Text = "Autor: DracoBlue" & vbCrLf & "Data: 14/05/2006" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 9
                LBSelect = 9
                TextBox4.Text = "DracoBlue" & vbCrLf & "Data: 25/08/2008" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 10
                LBSelect = 10
                TextBox4.Text = "Shelby" & vbCrLf & "Data: 18/09/2010" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 11
                LBSelect = 11
                TextBox4.Text = "Shelby" & vbCrLf & "Data: 14/10/2011" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 12
                LBSelect = 12
                TextBox4.Text = "Dr_Pawn" & vbCrLf & "Data: 14/08/2011" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 13
                LBSelect = 13
                TextBox4.Text = "Shelby" & vbCrLf & "Data: 18/06/2011" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 14
                LBSelect = 14
                TextBox4.Text = "Dr_Pawno" & vbCrLf & "Data: 22/04/2011" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 15
                LBSelect = 15
                TextBox4.Text = "Slice" & vbCrLf & "Data: 10/10/2010" & vbCrLf & "Categoria: Filterscript" & vbCrLf & "Fonte: Fórum samp"
            Case 16
                LBSelect = 16
                TextBox4.Text = "irinel1996" & vbCrLf & "Data: 16/10/2011" & vbCrLf & "Categoria: Folterscript" & vbCrLf & "Fonte: Fórum samp"
            Case 17
                LBSelect = 17
                TextBox4.Text = "Josma" & vbCrLf & "Data: 04/05/2011" & vbCrLf & "Categoria: Pacotes" & vbCrLf & "Fonte: Fórum samp"
            Case 18
                LBSelect = 18
                TextBox4.Text = "TheGarfield" & vbCrLf & "Data: 03/05/2011" & vbCrLf & "Categoria: Tabelas" & vbCrLf & "Fonte: Fórum samp"
            Case 19
                LBSelect = 19
                TextBox4.Text = "rjjj" & vbCrLf & "Data: 04/04/2011" & vbCrLf & "Categoria: Conversor" & vbCrLf & "Fonte: Fórum samp"
            Case 20
                LBSelect = 20
                TextBox4.Text = "MXStudio" & vbCrLf & "Data: --/--/----" & vbCrLf & "Categoria: Tabelas" & vbCrLf & "Fonte: MXStudio"
            Case 21
                LBSelect = 21
                TextBox4.Text = "ConvertFFS" & vbCrLf & "Data: --/--/----" & vbCrLf & "Categoria: Conversor" & vbCrLf & "Fonte: ConvertFFS"
            Case 22
                LBSelect = 22
                TextBox4.Text = "Wiki samp" & vbCrLf & "Data: 15/09/2011" & vbCrLf & "Categoria: Tabelas" & vbCrLf & "Fonte: Wikipedia"
            Case 23
                LBSelect = 23
                TextBox4.Text = "Wiki samp" & vbCrLf & "Data: 15/08/2010" & vbCrLf & "Categoria: Tabelas" & vbCrLf & "Fonte: Wikipedia"
            Case 24
                LBSelect = 24
                TextBox4.Text = "Wiki samp" & vbCrLf & "Data: 15/02/2012" & vbCrLf & "Categoria: Tabelas" & vbCrLf & "Fonte: Wikipedia"
            Case 25
                LBSelect = 25
                TextBox4.Text = "Wiki samp" & vbCrLf & "Data: 17/03/2012" & vbCrLf & "Categoria: Tabelas" & vbCrLf & "Fonte: Wikipedia"
            Case 26
                LBSelect = 26
                TextBox4.Text = "Jeffrey_Hatrix" & vbCrLf & "Data: 06/04/2012" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 27
                LBSelect = 27
                TextBox4.Text = "Y_Less" & vbCrLf & "Data: 10/01/2010" & vbCrLf & "Categoria: Plugin" & vbCrLf & "Fonte: Fórum samp"
            Case 28
                LBSelect = 28
                TextBox4.Text = "Los" & vbCrLf & "Data: 29/10/2011" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
            Case 29
                LBSelect = 29
                TextBox4.Text = "gamer931215" & vbCrLf & "Data: 04/08/2011" & vbCrLf & "Categoria: ---" & vbCrLf & "Fonte: Fórum samp"
            Case 30
                LBSelect = 30
                TextBox4.Text = "Gustavo_Araújo" & vbCrLf & "Data: 21/08/2011" & vbCrLf & "Categoria: Include" & vbCrLf & "Fonte: Fórum samp"
        End Select
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
        Select Case (LBSelect)
            Case 0
                Process.Start("http://forum.sa-mp.com/showthread.php?t=290223")     'Maior coletânea
            Case 1
                Process.Start("http://forum.sa-mp.com/showthread.php?t=102865")     '[REL] Streamer Plugin v2.5.2
            Case 2
                Process.Start("http://forum.sa-mp.com/showthread.php?t=117920")     'Fallout's Object Streamer v0.7
            Case 3
                Process.Start("http://forum.sa-mp.com/showthread.php?t=61548")      'Ysi
            Case 4
                Process.Start("http://forum.sa-mp.com/showthread.php?t=169029")     'YCMD
            Case 5
                Process.Start("http://forum.sa-mp.com/showthread.php?t=91354")      'ZCMD
            Case 6
                Process.Start("http://forum.sa-mp.com/showthread.php?t=175565")     'y_ini - Fast INI file reading and writing.
            Case 7
                Process.Start("http://forum.sa-mp.com/showthread.php?t=58458")      '[INC] SII 2.0.6 - Fast cache based INI Reader/Writer
            Case 8
                Process.Start("http://forum.sa-mp.com/showthread.php?t=50")         '[Dini] INI-files easy! (1.6, 16th Sep 2008)
            Case 9
                Process.Start("http://forum.sa-mp.com/showthread.php?t=48439")      'DJson 1.6.2 - Fast/Extensive File Reader/Writer (Official Dini²)
            Case 10
                Process.Start("http://forum.sa-mp.com/showthread.php?t=177465")     'Radar(Veicular)
            Case 11
                Process.Start("http://forum.sa-mp.com/showthread.php?t=290043")     'mLibrary()
            Case 12
                Process.Start("http://forum.sa-mp.com/showthread.php?t=276509")     'O_Calendario()
            Case 13
                Process.Start("http://forum.sa-mp.com/showthread.php?t=262451")     'Neon(Library)
            Case 14
                Process.Start("http://forum.sa-mp.com/showthread.php?t=250153")     'Vehicle Random Plate v1.1
            Case 15
                Process.Start("http://forum.sa-mp.com/showthread.php?t=182317")     'Hold Studio (make awesome lines for SetPlayerHoldingObject EASILY)
            Case 16
                Process.Start("http://forum.sa-mp.com/showthread.php?t=290640")     '[0.3d]Zamaroht's TextDraw Editor for 0.3d RC5-3
            Case 17
                Process.Start("http://forum.sa-mp.com/showpost.php?p=1193103&postcount=2") 'Lista de tutoriais
            Case 18
                Process.Start("http://forum.sa-mp.com/showpost.php?p=1191866&postcount=1") 'FAQ: Dúvidas Frequentes
            Case 19
                Process.Start("http://forum.sa-mp.com/showthread.php?p=1775922#post1775922") 'Conversor: Strcmp para Zcmd.
            Case 20
                Process.Start("http://www.mxstudio.com.br/Conteudos/Dreamweaver/Cores.htm") 'Tabela de cores HTML
            Case 21
                Process.Start("http://www.convertffs.com/")                         'Conversor de objetos
            Case 22
                Process.Start("http://wiki.sa-mp.com/wiki/Skins:All")               'ID dos skins
            Case 23
                Process.Start("http://wiki.sa-mp.com/wiki/Vehicles:All")            'ID dos veículos
            Case 24
                Process.Start("http://wiki.sa-mp.com/wiki/Weapons")                 'ID das armas
            Case 25
                Process.Start("http://weedarr.wikidot.com/sounds")                  'ID dos sons
            Case 26
                Process.Start("http://forum.sa-mp.com/showthread.php?t=331826")     'JCMD - Processador de Comandos
            Case 27
                Process.Start("http://forum.sa-mp.com/showthread.php?t=120356")     'SSCANF 2.6 Plugin
            Case 28
                Process.Start("http://forum.sa-mp.com/showthread.php?t=293534")     'Logs Dinâmicos! [Losgs]
            Case 29
                Process.Start("http://forum.sa-mp.com/showthread.php?t=274064")     'Image2Textdraw - Image to textdraw converter
            Case 30
                Process.Start("http://forum.sa-mp.com/showthread.php?t=278159")     'G_Include 1.0
        End Select
    End Sub

    Private Sub Utilidades_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Utilidades.Click

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub ListBox10_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox10.SelectedIndexChanged
        Select Case (ListBox10.SelectedIndex)
            Case 0
                TextBox5.Text = "#define VDaOrg(%0,%1,%2) GetPlayerVehicleID(playerid) >= %0[%1] && GetPlayerVehicleID(playerid) <= %0[%2]" & vbCrLf & vbCrLf & "if(VDaOrg(VPCivil,0,8) && ProgressaoInfo[playerid][Membro] != 1) return RemovePlayerFromVehicle(playerid), SendClientMessage(playerid, C_PCivil, ""Você não é um policial civil"");" & vbCrLf & "if(VDaOrg(VPMilitar,0,16) && ProgressaoInfo[playerid][Membro] != 2) return RemovePlayerFromVehicle(playerid), SendClientMessage(playerid, C_PCivil, ""Você não é um {1E90FF}Policial Militar"");"
                TextBox7.Text = "Autor: Josma" & vbCrLf & "Fonte: Fórum sa-mp" & vbCrLf & "Descrição: Com este código é possível verificar se o veículo é da org sem loops e/ou ter que especificar cada veículo com operadores relacionais, apenas setando à partir de qual veículo vai verificar, até qual e o nome da variável... OBS: Funciona apenas em veículos criados à partir de variáveis com arrays como no tutorial de criação de orgs."
            Case 1
                Dim Texto As String = "#define ENTRADAS_MAX 5" & vbCrLf & "//******************** Inicio do GM *********************" & vbCrLf & "enum Float: PickupsEnum { modelo, Float: x, Float: y, Float: z, NomeEntrada[20], Float:DestX, Float:DestY, Float:DestZ, DestInt, DestVW };" & vbCrLf & "new InfoEntradas[ENTRADAS_MAX][PickupsEnum] =" & vbCrLf & "{" & vbCrLf & "    {modelo, Float: x, Float: y, Float: z, ""Nome Entrada"", Float:DestX, Float:DestY, Float:DestZ, DestInt, DestVW}, //Entrada 1" & vbCrLf
                Dim TextoA As String = "    {modelo, Float: x, Float: y, Float: z, ""Nome Entrada"", Float:DestX, Float:DestY, Float:DestZ, DestInt, DestVW}, //Entrada 2" & vbCrLf & "    {modelo, Float: x, Float: y, Float: z, ""Nome Entrada"", Float:DestX, Float:DestY, Float:DestZ, DestInt, DestVW}, //Entrada 3" & vbCrLf & "    {modelo, Float: x, Float: y, Float: z, ""Nome Entrada"", Float:DestX, Float:DestY, Float:DestZ, DestInt, DestVW}, //Entrada 4" & vbCrLf & "    {modelo, Float: x, Float: y, Float: z, ""Nome Entrada"", Float:DestX, Float:DestY, Float:DestZ, DestInt, DestVW}  //Entrada 5" & vbCrLf
                Dim TextoB As String = "}" & vbCrLf & vbCrLf & "//******************* OnGameModeInit ********************" & vbCrLf & "for(new PickID = 0; PickID < ENTRADAS_MAX; PickID++)" & vbCrLf & "{" & vbCrLf & "    CreatePickup(InfoEntradas[PickID][modelo], 1, InfoEntradas[PickID][x], InfoEntradas[PickID][y], 0);" & vbCrLf & "    format(Texto, 55, ""Pressione enter para\nentrar na %s"", InfoEntradas[PickID][NomeEntrada]);" & vbCrLf & "    Create3DTextLabel(Texto, C_Pickup, InfoEntradas[PickID][x], InfoEntradas[PickID][y], InfoEntradas[PickID][z], 40, 0, 0);" & vbCrLf & "}" & vbCrLf
                Dim TextoC As String = "//*************** OnPlayerKeyStateChange ****************" & vbCrLf & "if(newkeys == KEY_SECONDARY_ATTACK)" & vbCrLf & "{" & vbCrLf & "    for(new PP; PP < ENTRADAS_MAX; PP++)" & vbCrLf & "    {" & vbCrLf & "        if(IsPlayerInRangeOfPoint(playerid, 3.0, InfoEntradas[PP][x], InfoEntradas[PP][y], InfoEntradas[PP][z]))" & vbCrLf & "        {" & vbCrLf & "            SetPlayerPos(playerid, InfoEntradas[PP][DestX], InfoEntradas[PP][DestY], InfoEntradas[PP][DestZ]);" & vbCrLf & "SetPlayerInterior(playerid, InfoEntradas[PP][DestInt]);" & vbCrLf
                Dim TextoD As String = "            SetPlayerVirtualWorld(playerid, InfoEntradas[PP][DestVW]);" & vbCrLf & "            break;" & vbCrLf & "        }" & vbCrLf & "        else if(IsPlayerInRangeOfPoint(playerid, 3.0, InfoEntradas[PP][DestX], InfoEntradas[PP][DestY], InfoEntradas[PP][DestZ]))" & vbCrLf & "        {" & vbCrLf & "            SetPlayerPos(playerid, InfoEntradas[PP][x], InfoEntradas[PP][y], InfoEntradas[PP][z]);" & vbCrLf & "            SetPlayerInterior(playerid, 0);" & vbCrLf & "            SetPlayerVirtualWorld(playerid, 0);" & vbCrLf & "            break;" & vbCrLf
                TextBox5.Text = Texto & TextoA & TextoB & TextoC & TextoD & "        }" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Josma" & vbCrLf & "Fonte: Fórum sa-mp" & vbCrLf & "Descrição: Com esse código são criados pickups e 3DTextLabel's nas coordenadas desejadas economizando aquele monte de linhas e CreatePickup etc apenas usando loop, na variável também se pode definir o local pra onde o player será teleportado após apertar enter no pickup assim também como o interior do destino virtual world nome do local enfim."
            Case 2
                TextBox5.Text = "Velocimetro = TextDrawCreate(633.000000, 285.000000, ""-"");" & vbCrLf & "TextDrawBackgroundColor(Velocimetro, 65535);" & vbCrLf & "TextDrawFont(Velocimetro, 0);" & vbCrLf & "TextDrawLetterSize(Velocimetro, 4.259998, 10.800002);" & vbCrLf & "TextDrawColor(Velocimetro, 65535);" & vbCrLf & "TextDrawSetOutline(Velocimetro, 0);" & vbCrLf & "TextDrawSetProportional(Velocimetro, 1);" & vbCrLf & "TextDrawSetShadow(Velocimetro, 0);" & vbCrLf & "TextDrawUseBox(Velocimetro, 1);" & vbCrLf & "TextDrawBoxColor(Velocimetro, 16711935);" & vbCrLf & "TextDrawTextSize(Velocimetro, 500.000000, 142.000000);"
                TextBox7.Text = "Autor: Lipe_Stronda" & vbCrLf & "Fórum samp" & vbCrLf & "Descrição: Base em TextDraw para criação de velocímetros"
            Case 3
                Dim Texto As String = "FalconsLower(FLower[])" & vbCrLf & "{" & vbCrLf & "    static FalconsLowerLenght = strlen(FLower);" & vbCrLf & "    for(new ii; ii < FalconsLowerLenght; ii++)" & vbCrLf & "{" & vbCrLf & "        if(0x41 <= FLower[ii] <= 0x5A) FLower[ii] += 32;" & vbCrLf & "        if(FLower[ii] == 'Ç') FLower[ii] = 'ç';" & vbCrLf & "        if(FLower[ii] == 'Á') FLower[ii] = 'á';" & vbCrLf & "        if(FLower[ii] == 'À') FLower[ii] = 'à';" & vbCrLf & "        if(FLower[ii] == 'Ã') FLower[ii] = 'ã';" & vbCrLf & "        if(FLower[ii] == 'Ä') FLower[ii] = 'ä';" & vbCrLf & "        if(FLower[ii] == 'É') FLower[ii] = 'é';" & vbCrLf
                TextBox5.Text = Texto & "        if(FLower[ii] == 'È') FLower[ii] = 'è';" & vbCrLf & "        if(FLower[ii] == 'Ë') FLower[ii] = 'ë';" & vbCrLf & "        if(FLower[ii] == 'Ó') FLower[ii] = 'ó';" & vbCrLf & "        if(FLower[ii] == 'Ò') FLower[ii] = 'ò';" & vbCrLf & "        if(FLower[ii] == 'Ö') FLower[ii] = 'ö';" & vbCrLf & "        if(FLower[ii] == 'Õ') FLower[ii] = 'õ';" & vbCrLf & "        if(FLower[ii] == 'Ú') FLower[ii] = 'Ù';" & vbCrLf & "        if(FLower[ii] == 'Ù') FLower[ii] = 'ù';" & vbCrLf & "        if(FLower[ii] == 'Ü') FLower[ii] = 'ü';" & vbCrLf & "    }" & vbCrLf & "    return FLower;" & vbCrLf & "}"
                TextBox7.Text = "Autor: [Y]Falcon" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Nenhuma descrição disponível."
            Case 4
                TextBox5.Text = "public OnPlayerConnect(playerid)" & vbCrLf & "{" & vbCrLf & "    new Float: P[3], Float: A, carro();" & vbCrLf & "    GetPlayerPos(playerid, P[0], P[1], P[2]);" & vbCrLf & "    GetPlayerFacingAngle(playerid, A);" & vbCrLf & "    carro = CreateVehicle(522, P[0], P[1], P[2], A, -1, -1, 60);" & vbCrLf & "    PutPlayerInVehicle(playerid, carro, 0);" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Shickcard" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Este código cria um veículo ao player quando o mesmo conectar-se ao servidor"
            Case 5
                TextBox5.Text = "IsVehicleInRangeOfPoint(Float:Raio, Float:xb, Float:yb, Float:zb, Float:X2b, Float:Y2b, Float:Z2b)" & vbCrLf & "    {" & vbCrLf & "    new Float:resultadodist = floatsqroot(((xb - X2b) * (xb - X2b)) + ((yb - Y2b) * (yb - Y2b)) + ((zb - Z2b) * (zb - Z2b)));" & vbCrLf & "    return ((resultadodist <= Raio) ? true : false);" & vbCrLf & "}" & vbCrLf & "Exemplo de uso:" & vbCrLf & "new Float:J[3];" & vbCrLf & "GetVehiclePos(IDDoVeiculo, J[0], J[1], J[2]);" & vbCrLf & "if(GetarDistancia1(J[0], J[1], J[2], CoordX, CoordY, CoordZ)) //Coloque nos três últimos parâmetros suas coordenadas." & vbCrLf & "{" & vbCrLf & "    //Execute aqui o que quiser caso esteja na coordenada." & vbCrLf & "}"
                TextBox7.Text = "Autor: Josma" & vbCrLf & "Fonte: Projetos Josma_CMD" & vbCrLf & "Descrição: Um usuário postou uma duvida no fórum samp que retratava a situação onde era necessário verificar se um veículo estava em um raio de distância de uma certa coordenada, semelhante ao IsPlayerInRangeOfPoint usado para verificar players. Diante disto, adaptei o código que havia postado à alguns dias atrás aqui no blog pra fazer essa verificação, é um simples teorema de pitágonas, não cheguei à testar mas é provável que funcione."
            Case 6
                TextBox5.Text = "#define CallBack::%0(%1) forward %0(%1); public %0(%1)" & vbCrLf & vbCrLf & "CallBack::Float:GetarDistancia(Float:xb, Float:yb, Float:zb, Float:X2b, Float:Y2b, Float:Z2b)" & vbCrLf & "{" & vbCrLf & "    return floatsqroot(((xb - X2b) * (xb - X2b)) + ((yb - Y2b) * (yb - Y2b)) + ((zb - Z2b) * (zb - Z2b)));" & vbCrLf & "}"
                TextBox7.Text = "Autor: Josma" & vbCrLf & "Fonte: Projetos Josma_CMD" & vbCrLf & "Descrição: Este código é capaz de getar a a distância entre dois pontos, Esta callback é semelhante à criada pelo samp team, a maior diferença é o uso de operadores aritméticos no lugar das funções floatmul, floatadd, floatdiv dentre outras, este código pode ser adaptado para getar qual player do servidor está mais próximo de um certo ponto(Verificando todos os players) como também para verificar qual dos dois players estão mais próximos."
            Case 7
                TextBox5.Text = "public LimparChat(playerid, linhas)" & vbCrLf & "{" & vbCrLf & "    for(new x; x<linhas; x++)" & vbCrLf & "    {" & vbCrLf & "        SendClientMessage(playerid, COLOR_GREY, "" "");" & vbCrLf & "    }" & vbCrLf & "    return 1;" & vbCrLf & "}" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & vbCrLf & "LimparChat(playerid, 100);"
                TextBox7.Text = "Autor: Willian Luigi" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Este código cria um loop que percorre a quantidade de linhas especificada pelo usuário mandando uma mensagem nula em cada uma delas dando a impressão de chat limpo."
            Case 8
                TextBox5.Text = "stock IsVehicleRCVehicle(v)" & vbCrLf & "{" & vbCrLf & "    switch(GetVehicleModel(v))" & vbCrLf & "    {" & vbCrLf & "        case 441,464,465,501,564,594: return 1;" & vbCrLf & "    }" & vbCrLf & "    return 0;" & vbCrLf & "}"
                TextBox7.Text = "Autor: [O.z]Caroline" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Verifica se o veículo é um carrinho de controle remoto."
            Case 9
                TextBox5.Text = "INI_Create(filename[])" & vbCrLf & "{" & vbCrLf & "    if(INI_Exist(filename)) return printf(""O arquivo '%s' já existe."", filename);" & vbCrLf & "    static File: arquivo;" & vbCrLf & "    arquivo = fopen(filename, io_write);" & vbCrLf & "    fclose(arquivo);" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox7.Text = "Autor: [A]rray" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Já que SII não possuí função para criar arquivos, aqui está."
            Case 10
                TextBox5.Text = "for( new i = 0; i < MAX_PLAYERS; ++i )" & vbCrLf & "{" & vbCrLf & "    if( GetPlayerWeapon( i ) == 24 )" & vbCrLf & "    {" & vbCrLf & "        SetPlayerHoldingObject( i, 18643, 6, -0.002120, 0.010089, -0.007754, 120.938499, 358.654724, 358.360534 );" & vbCrLf & "    }" & vbCrLf & "    else" & vbCrLf & "    {" & vbCrLf & "        StopPlayerHoldingObject( i );" & vbCrLf & "    }" & vbCrLf & "}"
                TextBox7.Text = "Autor: [NWD]Jim._.Carrey" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Este código precisa de um timer pra atualizar."
            Case 11
                TextBox5.Text = "stock GetXYInFrontOfVehicle(vehicleid, &Float:x, &Float:y, Float:distance)" & vbCrLf & "{" & vbCrLf & "    new Float:a;" & vbCrLf & "    GetVehiclePos(vehicleid, x, y, a);" & vbCrLf & "    GetVehicleZAngle(vehicleid, a);" & vbCrLf & "    x += (distance * floatsin(-a, degrees));" & vbCrLf & "    y += (distance * floatcos(-a, degrees));" & vbCrLf & "}" & vbCrLf & vbCrLf & "CMD:explodir(playerid, params[])" & vbCrLf & "{" & vbCrLf & "    new Float:explosion[3],Float:pos[2],vehicleid=GetPlayerVehicleID(playerid);" & vbCrLf & "    GetVehiclePos(vehicleid, pos[0], pos[1], explosion[2]);" & vbCrLf & "    GetXYInFrontOfVehicle(vehicleid,explosion[0],explosion[1],25.0);" & vbCrLf & "    CreateExplosion(explosion[0], explosion[1], explosion[2], 2, 10.0);" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Shelby" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Este código cria uma explosão metros à frente de um veículo."
            Case 12
                Dim Texto As String = "stock ConverterTexto(string[]) // Sheby" & vbCrLf & "{" & vbCrLf & "    for(new arraysize = 0; arraysize < strlen(string); arraysize++)" & vbCrLf & "    {" & vbCrLf & "        if(strfind(string, ""â"", true) != -1){new pos = strfind(string, ""â"", true); strdel(string, pos, pos+strlen(""â"")); strins(string, ""™"", pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""ã"", true) != -1){new pos = strfind(string, ""ã"", true); strdel(string, pos, pos+strlen(""ã"")); strins(string, ""š"", pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""á"", true) != -1){new pos = strfind(string, ""á"", true); strdel(string, pos, pos+strlen(""á"")); strins(string, , pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""é"", true) != -1){new pos = strfind(string, ""é"", true); strdel(string, pos, pos+strlen(""é"")); strins(string, ""ž"", pos, sizeof(pos));}"
                TextBox5.Text = Texto & vbCrLf & "        if(strfind(string, ""ú"", true) != -1){new pos = strfind(string, ""ú"", true); strdel(string, pos, pos+strlen(""ú"")); strins(string, """", pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""ó"", true) != -1){new pos = strfind(string, ""ó"", true); strdel(string, pos, pos+strlen(""ó"")); strins(string, ""¦"", pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""ê"", true) != -1){new pos = strfind(string, ""ê"", true); strdel(string, pos, pos+strlen(""ê"")); strins(string, ""Ÿ"", pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""í"", true) != -1){new pos = strfind(string, ""í"", true); strdel(string, pos, pos+strlen(""í"")); strins(string, ""¢"", pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""ç"", true) != -1){new pos = strfind(string, ""ç"", true); strdel(string, pos, pos+strlen(""ç"")); strins(string, ""œ"", pos, sizeof(pos));}" & vbCrLf & "        if(strfind(string, ""ô"", true) != -1){new pos = strfind(string, ""ô"", true); strdel(string, pos, pos+strlen(""ô"")); strins(string, ""§"", pos, sizeof(pos));}" & vbCrLf & "    }" & vbCrLf & "}"
                TextBox7.Text = "Autor: Shelby" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Quando se escreve com acento em textdraw os textos ficam todos ilegíveis. Essa função troca os caracteres para os acentos."
            Case 13
                TextBox5.Text = "public OnEnterExitModShop(playerid, enterexit, interiorid)" & vbCrLf & "{" & vbCrLf & "    if(enterexit == 0) return TogglePlayerControllable(playerid, 1);" & vbCrLf & "    else if(enterexit == 1) return TogglePlayerControllable(playerid, 0);" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Shickcard" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Este código desbuga a transfeder do GF impedindo que o player saia do veículo ao selecionar opções no menu mod shop"
            Case 14
                TextBox5.Text = "stock Aeronave(carid)" & vbCrLf & "{" & vbCrLf & "    switch(GetVehicleModel(carid))" & vbCrLf & "        case 952, 577,511,512,593,520,553,464,476,519,460,513,539," & vbCrLf & "        548,425,417,487,497,563,501,465,447,469,488: return true;" & vbCrLf & "        default: return false;" & vbCrLf & "    }" & vbCrLf & "    return false;" & vbCrLf & "}"
                TextBox7.Text = "Autor: [O.z]Caroline" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Verifica se o veículo é uma aeronave."
            Case 15
                TextBox5.Text = "#define TogglePlayerControllableEx(%0,%1) TogglePlayerControllable(%0,1); SetTimerEx(""Unfreeze"",%1*1000,false,""i"",%0);//Em tempo é em segundos " & vbCrLf & vbCrLf & "forward Unfreeze(playerid);" & vbCrLf & "public Unfreeze(playerid)" & vbCrLf & "{" & vbCrLf & "    TogglePlayerControllable(playerid,0);" & vbCrLf & "    return 1;" & vbCrLf & "}" & vbCrLf & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & "if(strcmp(cmdtext,""/freezeme"") == 0)" & vbCrLf & "{" & vbCrLf & "    TogglePlayerControllableEx(playerid,5);" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: FireCat" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível"
            Case 16
                TextBox5.Text = "new string[42], NivelAdmin[4][19] = //Global" & vbCrLf & "{" & vbCrLf & "    ""Jogador"",           //0" & vbCrLf & "    ""Moderador"",         //1" & vbCrLf & "    ""Administrador"",     //2" & vbCrLf & "    ""Administrdor Dono""  //3" & vbCrLf & vbCrLf & "format(string, 42, ""Você é administrador: %s"", NivelAdmin[PlayerInfo[playerid][pAdmin]]); //No comando ou stock enfim"
                TextBox7.Text = "Autor: Josma" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Apenas uma alternativa para quem não quer criar uma condição à cada nível de administrador."
            Case 17
                TextBox5.Text = "public OnFilterScriptInit()" & vbCrLf & "{" & vbCrLf & "    printf(""Resultado: %d"",soma(1,2));" & vbCrLf & "    printf(""Resultado: %d"",divisao(1,2));" & vbCrLf & "    printf(""Resultado: %d"",subtracao(1,2));" & vbCrLf & "    printf(""Resultado: %d"",multiplicacao(1,2));" & vbCrLf & "    return 1;" & vbCrLf & "}" & vbCrLf & vbCrLf & "stock soma(n1,n2) return n1+n2;" & vbCrLf & "stock divisao(n1,n2) return n1/n2;" & vbCrLf & "stock subtracao(n1,n2) return n1-n2;" & vbCrLf & "stock multiplicacao(n1,n2) return n1*n2;"
                TextBox7.Text = "Autor: BlueX" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Função que faz 4 tipos de contas (Divisão, Multiplicação, Soma, Subtração) Como usar: Quando você quizer fazer um calculo basta colocar, ""Soma(n1,n2)"", ou seja, n1 é o numero 1 e o n2 é o numero 2, vejamos um exemplo."
            Case 18
                TextBox5.Text = "new Recorde, ID, Texto[128];" & vbCrLf & vbCrLf & "for(new i = 0; i < MAX_PLAYERS; i++)" & vbCrLf & "{" & vbCrLf & "    if(!IsPlayerConnect(i)) continue;" & vbCrLf & "    if(GetPlayerMoney(i) > Recorde) Recorde = GetPlayerMoney(i),ID = i;" & vbCrLf & "}" & vbCrLf & "format(Texto,120,""O Player Mais Rico do Servidor é o %s com $%d"",GetPlayerNameEx(ID),Recorde);" & vbCrLf & "SendClientMessageToAll(0x008000AA,Texto);" & vbCrLf & vbCrLf & "stock GetPlayerNameEx(playerid)" & vbCrLf & "{" & vbCrLf & "    new Nome[24];" & vbCrLf & "    GetPlayerName(playerid,Nome,MAX_PLAYER_NAME];" & vbCrLf & "    return Nome;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Gustavo Araújo" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
            Case 19
                TextBox5.Text = "stock IsPlayerBetweenPlayer(_pA, _pB, Float:_R)" & vbCrLf & "{" & vbCrLf & "    new Float:_P[3];" & vbCrLf & "    GetPlayerPos(_pA, _P[0], _P[1], _P[2]);" & vbCrLf & "    if(IsPlayerInRangeOfPoint(_pB, _R, _P[0], _P[1], _P[2])) return true;" & vbCrLf & "    return false;" & vbCrLf & "}" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & vbCrLf & "public OnPlayerDeath(playerid, killerid, reason)" & vbCrLf & "{" & vbCrLf & "    if(IsPlayerBetweenPlayer(playerid, killerid, 1.0)) return SetPlayerScore(playerid, 1);" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Dreeh" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Essa função permite que cheque se um player(parâmetro _pA) está 'entre', ou perto, de outro player(parâmetro _pB), com uma certa distância entre eles(parâmetro Float:_R)."
            Case 20
                TextBox5.Text = "stock IntToHex(int)" & vbCrLf & "{" & vbCrLf & "    new str[3];" & vbCrLf & "    format(str, sizeof(str), ""%x"", int);" & vbCrLf & "    return str;" & vbCrLf & "}" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & vbCrLf & "printf(IntToHex(787878)); // 'printará' C0"
                TextBox7.Text = "Autor: Dreeh" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Essa função permite transformar números inteiros(intergers) em números hexadecimais(hex)."
            Case 21
                TextBox5.Text = "static stock ConvertHtmlColorToPawn(color[])" & vbCrLf & "{" & vbCrLf & "    static s[20];" & vbCrLf & "    format(s, strlen(color),""0x%sFF"", color);" & vbCrLf & "    return strval(s);" & vbCrLf & "}" & vbCrLf & vbCrLf & "Exemplo de uso:" & vbCrLf & vbCrLf & "SendClientMessage(playerid,  ConvertHtmlColorToPawn(""000099""), ""Olá, Esta mensagem é azul"");"
                TextBox7.Text = "Autor: [O.z]Caroline" & vbCrLf & "Fonte: Fórum" & vbCrLf & "Descrição: Não disponível."
            Case 22
                TextBox5.Text = "public OnPlayerGiveDamage(playerid, damagedid, Float:amount, weaponid)" & vbCrLf & "{" & vbCrLf & "    new Float:Life, Float:Colete, Float:Dano;" & vbCrLf & "    GetPlayerArmour(damagedid, Colete);" & vbCrLf & "    GetPlayerHealth(damagedid, Life);" & vbCrLf & "    if(Colete > 0)" & vbCrLf & "    {" & vbCrLf & "        if(amount > Colete)" & vbCrLf & "        {" & vbCrLf & "            Dano = amount - Colete;" & vbCrLf & "            Life = Life - Dano;" & vbCrLf & "            SetPlayerArmour(damagedid, 0.0);" & vbCrLf & "           SetPlayerHealth(damagedid, Life);" & vbCrLf & "            return 1;" & vbCrLf & "        }" & vbCrLf & "        Colete = Colete - amount;" & vbCrLf & "        SetPlayerArmour(damagedid, Colete);" & vbCrLf & "    }" & vbCrLf & "    if(Colete < 1)" & vbCrLf & "    {" & vbCrLf & "        Life = Life - amount;" & vbCrLf & "        SetPlayerHealth(damagedid, Life);" & vbCrLf & "    }" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Los" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Nas versões anteriores do samp, você tinha que atirar na frente da pessoa para poder acerta-la (isso é o lag). Agora no 0.3d é possível sem precisar atirar na frente da pessoa:"
            Case 23
                TextBox5.Text = "public OnPlayerClickPlayer(playerid,clickedplayerid,source)" & vbCrLf & "{" & vbCrLf & "    new string[64],name[24];" & vbCrLf & "    GetPlayerName(clickedplayerid,name,sizeof(name));" & vbCrLf & "    format(string,sizeof(string),""Nick: %s Score: %d Dinheiro: %d"",name,GetPlayerScore(clickedplayerid),GetPlayerMoney(clickedplayerid));" & vbCrLf & "    SendClientMessage(playerid,0xFFFFFFFF,string);" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: 4LiSs0N" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Ao clicar sobre um player listado no TAB é apresentado nick, dinheiro e score do mesmo."
            Case 24
                TextBox5.Text = "GetPlayerNameEx ( nome [ ] )" & vbCrLf & "{" & vbCrLf & "    static name [ MAX_PLAYER_NAME ] , Max , x();" & vbCrLf & "    Max = GetMaxPlayers ( ) ;" & vbCrLf & "    for ( x = 0 ; x != Max ; x++ )" & vbCrLf & "    {" & vbCrLf & "        if ( IsPlayerConnected ( x ) )" & vbCrLf & "        {" & vbCrLf & "            GetPlayerName ( x , name , MAX_PLAYER_NAME ) ;" & vbCrLf & "            if ( strfind ( name , nome , true ) ) //se name = nome, o player está conectado!" & vbCrLf & "            {" & vbCrLf & "                return x ;" & vbCrLf & "            }" & vbCrLf & "        }" & vbCrLf & "    }" & vbCrLf & "    return INVALID_PLAYER_ID ;" & vbCrLf & "}"
                TextBox7.Text = "Autor: SlashPT" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
            Case 25
                TextBox5.Text = "GetVehicleDriver(vehicleid)" & vbCrLf & "{" & vbCrLf & "    for(new i, p = GetMaxPlayers(); i < p; i++)" & vbCrLf & "        if(IsPlayerInVehicle(i, vehicleid) && IsPlayerConnected(i) && GetPlayerState(i) == PLAYER_STATE_DRIVER)" & vbCrLf & "            return i; " & vbCrLf & "    return INVALID_PLAYER_ID;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Shadoww5" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
            Case 26
                TextBox5.Text = "stock Tapa(playerid){" & vbCrLf & "    new Float:x;" & vbCrLf & "    new Float:y;" & vbCrLf & "    new Float:z;" & vbCrLf & "    GetPlayerPos(playerid,x,y,z);" & vbCrLf & "    SetPlayerPos(playerid,x,y,z+5);" & vbCrLf & "    SetPlayerVelocity(playerid,0.0,0.0,-0.4525);" & vbCrLf & "}"
                TextBox7.Text = "Autor: War Paz" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Este tapa além de levar o jogador a um nível elevado da sua posição atual aumenta a velocidade para baixo tornando mais eficaz e fazendo com que o mesmo caia em menos tempo."
            Case 27
                TextBox5.Text = "public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)" & vbCrLf & "{" & vbCrLf & "    if (PRESSED(KEY_FIRE)) //verifica se clicou na tecla de disparar" & vbCrLf & "    {" & vbCrLf & "        if (IsPlayerInAnyVehicle(playerid) && GetPlayerWeapon(killerid) == ID DA ARMA QUE VC QUER) //verifica se está num veiculo e tem a arma Tal...." & vbCrLf & "        {" & vbCrLf & "            RemovePlayerFromVehicle(playerid);//ejeta o player do veiculo" & vbCrLf & "        }" & vbCrLf & "    }" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: andmeida10" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
            Case 28
                TextBox5.Text = "if(!strcmp(cmdtext,""/avisar"", 6, true))" & vbCrLf & "{" & vbCrLf & "    if(!cmdtext[8] || cmdtext[8] == ' ')" & vbCrLf & "        return SendClientMessage(playerid, -1, ""/avisar <id>"");" & vbCrLf & "    static Av[24], Av2[24], Str[128];" & vbCrLf & "    GetPlayerName(strval(cmdtext[8]), Av, 24); GetPlayerName(playerid, Av2, 24);" & vbCrLf & "    format(Str, sizeof(Str),""%s ganhou um aviso de %s"", Av, Av2);" & vbCrLf & "    SendClientMessage(playerid, -1,  Str);" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox7.Text = "Autor: DarkScripter" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
            Case 29
                TextBox5.Text = "stock IsNumeric(str[])" & vbCrLf & "{" & vbCrLf & "    for(new i, e = strlen(str); i != e; ++i){" & vbCrLf & "        if(!('9' < (str[i]) > '0')){" & vbCrLf & "            return false;" & vbCrLf & "        }" & vbCrLf & "    }" & vbCrLf & "    return true;" & vbCrLf & "}"
                TextBox7.Text = "Autor: DarkScripter" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
            Case 30
                TextBox5.Text = "#include <zcmd> // No Topo do GM" & vbCrLf & vbCrLf & "CMD:dia(playerid,params[])" & vbCrLf & "{" & vbCrLf & "    SetPlayerTime(playerid, 12.0)" & vbCrLf & "    return 1;" & vbCrLf & "}" & vbCrLf & "CMD:tarde(playerid,params[])" & vbCrLf & "{" & vbCrLf & "    SetPlayerTime(playerid, 18.0)" & vbCrLf & "    return 1;" & vbCrLf & "}" & vbCrLf & "CMD:noite(playerid,params[])" & vbCrLf & "{" & vbCrLf & "    SetPlayerTime(playerid, 24.0)" & vbCrLf & "    return 1;" & vbCrLf & "}"
                TextBox7.Text = "Autor: .Funeral." & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Altera o horário do jogador."
            Case 31
                TextBox5.Text = "stock GetPlayersInRangeOfPoint ( Float:radi , Float: x , Float: y , Float: z )" & vbCrLf & "{" & vbCrLf & "    new sPlayersCount;" & vbCrLf & "    for ( new i , p = GetMaxPlayers ( ) ; i != p ; ++i )" & vbCrLf & "    {" & vbCrLf & "        if ( IsPlayerInRangeOfPoint ( i , radi , x , y , z ) )" & vbCrLf & "        {" & vbCrLf & "            sPlayersCount ++;" & vbCrLf & "        }" & vbCrLf & "    }" & vbCrLf & "    return sPlayersCount;" & vbCrLf & "}"
                TextBox7.Text = "Autor: Pedro Miranda" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
            Case 32
                TextBox5.Text = "#define GetDynamicObjectModel(%0) Streamer_GetIntData(STREAMER_TYPE_OBJECT, %0, E_STREAMER_MODEL_ID)"
                TextBox7.Text = "Autor: Skream" & vbCrLf & "Fonte: Fórum samp" & vbCrLf & "Descrição: Não disponível."
        End Select
    End Sub

    Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click
        MsgBox("A lista no canto superior esquerdo da pagina disponibiliza vários títulos de códigos, ao seleciona-los é exibido o código à direitat, logo abaixo, informações do mesmo como autor, fonte e descrição do código, abaixo da lista uma breve instrução sobre a pagina.")
    End Sub

    Private Sub ListBox11_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox11.SelectedIndexChanged
        Select Case (ListBox11.SelectedIndex)
            Case 0
                LASelect = 0
                TextBox8.Text = "Autor: Delfi" & vbCrLf & "Tamanho: 442 KB" & vbCrLf & "Site oficial: www.gtagarage.com" & vbCrLf & "Criação: 31/06/2005" & vbCrLf & "Atualização: 08/04/2007" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: GGMM é o primeiro programa criado pela GTA Garage, ele empacota e instala veículos de distribuição fácil para os títulos GTA III, GTA Vice City e GTA San Andreas." & vbCrLf & vbCrLf & "Você também pode visualizar os veículos em fullly controlable 3D com versões de cores diferentes, detalhes, modo danificado e modelos extra também." & vbCrLf & "A janela é totalmente redimensionavel"
                PictureBox212.BackgroundImage = My.Resources.image_746()
            Case 1
                LASelect = 1
                TextBox8.Text = "Autor: TrippleX" & vbCrLf & "Tamanho: 0.016 MB" & vbCrLf & "Site oficial: www.gtagarage.com" & vbCrLf & "Criação: 23/10/2011" & vbCrLf & "Atualização: 23/10/2011" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Não disponível"
                PictureBox212.BackgroundImage = My.Resources.image_41105
            Case 2
                LASelect = 2
                TextBox8.Text = "Autor: SA-MP Team" & vbCrLf & "Tamanho: 1.832 KB" & vbCrLf & "Site oficial: www.sa-mp.com" & vbCrLf & "Criação: ---" & vbCrLf & "Atualização: ---" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: SA-MP(San Andreas Multiplayer) é uma modificação que permite aos jogadores de Grand Theft Auto San Andreas jogarem no modo online. Sendo um programa de código aberto, o samp server é a ferramenta responsável por disponibilizar aos usuários a experiência de ter seus próprios servidores online."
                PictureBox212.BackgroundImage = My.Resources.samp_logo
            Case 3
                LASelect = 3
                TextBox8.Text = "Autor: Shelby" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação: 05/02/2012" & vbCrLf & "Atualização: 08/02/2012" & vbCrLf & "Idioma original: Português Brasileiro" & vbCrLf & vbCrLf & "Descrição:" & vbCrLf & "- Carrega arquivos .map." & vbCrLf & "- Salva conversão em arquivo .txt." & vbCrLf & "- Leve." & vbCrLf & "- Não necessita de conexão à internet." & vbCrLf & "- Não compartilha seu mapa em websites." & vbCrLf & "- Converte veículos." & vbCrLf & "- 3 Síntaxes de objetos diferentes." & vbCrLf & "- 3 Síntaxes de veículos diferentes." & vbCrLf & "- Multi-Plataforma(roda em praticamente todos os Sistemas Operacionais)." & vbCrLf & "- Ocupa poquíssimo espaço no HD."
                PictureBox212.BackgroundImage = My.Resources._34zj86q
            Case 4
                LASelect = 4
                TextBox8.Text = "Autor: KingstoN" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação: 20/11/2009" & vbCrLf & "Atualização: 05/04/2011" & vbCrLf & "Idioma original: Português Brasileiro" & vbCrLf & vbCrLf & "Descrição: auxilio para novos programadores de pawn, juntada com as funções mais usadas atualmente."
                PictureBox212.BackgroundImage = My.Resources.imagemvs
            Case 5
                LASelect = 5
                TextBox8.Text = "Autor: [GRB]Stakline" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação:  31/10/2010" & vbCrLf & "Atualização: 01/11/2010" & vbCrLf & "Idioma original: Português Brasileiro" & vbCrLf & vbCrLf & "Descrição: Simples criador de dialogos para ser acoplado ao OnDIalogResponse."
                PictureBox212.BackgroundImage = My.Resources.print2
            Case 6
                LASelect = 6
                TextBox8.Text = "Autor: JernejL" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação: 12/09/2011" & vbCrLf & "Atualização: 09/04/2012" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Editor de mapas compatível com todas as versões do samp, com suporte à vários recursos inclusive o RemoveBuildingForPlayer."
                PictureBox212.BackgroundImage = My.Resources.collisionandreasV4small
            Case 7
                LASelect = 7
                TextBox8.Text = "Autor: Jacob" & vbCrLf & "Tamanho: 31.24 Kb" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação: 17/06/2005" & vbCrLf & "Atualização: 17/06/2005" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Aplicativo capaz de gerar veículos de qualquer categoria in-game."
                PictureBox212.BackgroundImage = My.Resources.CarSpawner
            Case 8
                LASelect = 8
                TextBox8.Text = "Autor: Stefan" & vbCrLf & "Tamanho: 90 kb" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação: Desconhecido" & vbCrLf & "Atualização: Não atualizado" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Com este programa você pode converter tempos para SetTimer's."
                PictureBox212.BackgroundImage = My.Resources.ScreenshotMX21
            Case 9
                LASelect = 9
                TextBox8.Text = "Autor: Danifantom e Stakline" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: multisamp.hdfree.com.br" & vbCrLf & "Criação: Desconhecido" & vbCrLf & "Atualização: 25/09/2010" & vbCrLf & "Idioma original: Português Brasileiro" & vbCrLf & vbCrLf & "Com o Multi SA-MP Será posivel executar o client de qualquer versão do SA-MP sem ter que instala-los."
                PictureBox212.BackgroundImage = My.Resources.header
            Case 10
                LASelect = 10
                TextBox8.Text = "Autor: Spooky" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: www.gtagarage.com" & vbCrLf & "Criação: 20/05/2005" & vbCrLf & "Atualização: 01/01/2006" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Este programa permitirá que você gerencie arquivos .IMG do GTA III, Vice City e San Andreas."
                PictureBox212.BackgroundImage = My.Resources.image_149
            Case 11
                LASelect = 11
                TextBox8.Text = "Autor: Alci" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: www.gtagarage.com" & vbCrLf & "Criação: 27/06/2011" & vbCrLf & "Atualização: 27/06/2011" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Gerenciador de arquivos .IMG compatível com GTA San Andreas capaz de importar, exportar e salvar arquivos além de trazer vários outros recursos."
                PictureBox212.BackgroundImage = My.Resources.image_38424
            Case 12
                LASelect = 12
                TextBox8.Text = "Autor: !cMc! Jacob" & vbCrLf & "Tamanho: Desconhecido" & vbCrLf & "Site oficial: www.gtagarage.com" & vbCrLf & "Criação: 09/05/2005" & vbCrLf & "Atualização: 09/01/2011" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Com este programa você será capaz deadicionar e/ou editar locais no GTA San Andreas."
                PictureBox212.BackgroundImage = My.Resources.image_73
            Case 13
                LASelect = 13
                TextBox8.Text = "Autor: Niek Den Teuling" & vbCrLf & "Tamanho: 1,25 mb" & vbCrLf & "Site oficial: mtahostings.com" & vbCrLf & "Criação: 21/09/2010" & vbCrLf & "Atualização: 21/09/2010" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Este programa permite que você personalize as configurações da ENB Series facilmente."
                PictureBox212.BackgroundImage = My.Resources.comparison_large
            Case 14
                LASelect = 14
                TextBox8.Text = "Autor: Alci" & vbCrLf & "Tamanho: 5,00 mb" & vbCrLf & "Site oficial: www.gtagarage.com" & vbCrLf & "Criação: 16/03/2009" & vbCrLf & "Atualização: 16/03/2009" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Programa usado para importar/exportar arquivos de audio do GTA San Andreas."
                PictureBox212.BackgroundImage = My.Resources.alcis_saat_gui_frontend
            Case 15
                LASelect = 15
                TextBox8.Text = "Autor: Stretchnutter" & vbCrLf & "Tamanho: 0.88 MB" & vbCrLf & "Site oficial: www.gtagarage.com" & vbCrLf & "Criação: 19/06/2005" & vbCrLf & "Atualização: 01/01/2006" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Adiciona várias posições de câmeras no San Andreas, também possui um vilocímetro Analog/Digital e um conta-giros." & vbCrLf & "- 10 novas câmeras" & vbCrLf & "- Modo Visão livre" & vbCrLf & "- Velocímetro/conta-giros com seis estilos diferentes e várias posição" & vbCrLf & "- Modo invisível" & vbCrLf & "- E muito mais funções"
                PictureBox212.BackgroundImage = My.Resources.image_575
            Case 16
                LASelect = 16
                TextBox8.Text = "Autor: JernejL" & vbCrLf & "Tamanho: 0.442 MB" & vbCrLf & "Site oficial: www.gratools.com" & vbCrLf & "Criação: 07/09/2009" & vbCrLf & "Atualização: 28/03/2012" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Visualize e edite arquivos de textura .TXD com o TXD Workshop 4.5."
                PictureBox212.BackgroundImage = My.Resources.image_30288
            Case 17
                LASelect = 17
                TextBox8.Text = "Autor: Qjimbo" & vbCrLf & "Tamanho: 0.270 MB" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação: 07/09/201" & vbCrLf & "Atualização: 07/09/201" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Controlador de tempo para GTA San Andreas."
                PictureBox212.BackgroundImage = My.Resources.images__1_
            Case 18
                LASelect = 18
                TextBox8.Text = "Autor: cpmusick" & vbCrLf & "Tamanho: 3.41 MB" & vbCrLf & "Site oficial: ---" & vbCrLf & "Criação: 07/09/2010" & vbCrLf & "Atualização: 07/09/2010" & vbCrLf & "Idioma original: Inglês" & vbCrLf & vbCrLf & "Descrição: Instalador de modificações para GTA San Andreas."
                PictureBox212.BackgroundImage = My.Resources.images
        End Select
    End Sub

    Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
        Select Case (LASelect)
            Case 0
                Process.Start("http://www.gtagarage.com/mods/show.php?id=434")          'GTA Garage Mod Manager(GGMM)
            Case 1
                Process.Start("http://www.gtagarage.com/mods/show.php?id=18324")        'Pawn Advanced Color Picker v3.0.0
            Case 2
                Process.Start("http://team.sa-mp.com/files/samp03dsvr_R2_win32.zip")    'Samp server 0.3d R2
            Case 3
                Process.Start("http://forum.sa-mp.com/showthread.php?t=315995")         'Conversor de objetos
            Case 4
                Process.Start("http://forum.sa-mp.com/showthread.php?t=109495")         'SA-MP Gen King v3.0
            Case 5
                Process.Start("http://forum.sa-mp.com/showthread.php?t=187072")         'Dialog Criador v2.0
            Case 6
                Process.Start("http://forum.sa-mp.com/showthread.php?t=282801")         'Map Editor
            Case 7
                Process.Start("http://www.thegtaplace.com/downloads/f648")              'Car Spawner Trainer 2.0
            Case 8
                Process.Start("http://www.tecno-samp.net/2011/02/app-converter-settimer.html") 'Conversor de SetTimer
            Case 9
                Process.Start("http://multisamp.hdfree.com.br/")                        'Multi SA-MP
            Case 10
                Process.Start("http://www.gtagarage.com/mods/show.php?id=63")           'IMG Tool
            Case 11
                Process.Start("http://www.gtagarage.com/mods/show.php?id=17269")        'Alci's IMG Editor
            Case 12
                Process.Start("http://www.gtagarage.com/mods/show.php?id=26")           'San Andreas Place Manager
            Case 13
                Process.Start("https://mtahostings.com/enbcfg/")                        'Enb Series Configurator
            Case 14
                Process.Start("http://www.gtagarage.com/mods/show.php?id=5777")         'Alci's SAAT GUI FrontEnd
            Case 16
                Process.Start("http://www.gtagarage.com/mods/show.php?id=331")          'San Andreas Camera Hack
            Case 17
                Process.Start("http://www.gtagarage.com/mods/show.php?id=8320")         'TXD Workshop
            Case 18
                Process.Start("http://www.gtamods.com.br/2010/09/timesync-tool-v11.html") 'TimeSync Tool v1.1
            Case 19
                Process.Start("http://www.gtamods.com.br/2010/09/san-andreas-mod-installer-sami-v11.html") 'San Andreas Mod Installer(Sami)
        End Select
    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged

    End Sub

    Private Sub PictureBox212_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox212.Click

    End Sub

    Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click
        MsgBox("A lista no campo superior direito da pagina disponibiliza vários títulos de programas, ao seleciona-los, são exibidas informações no campo abaixo como autor, site oficial, tamanho, data de criação, data de atualização, idioma padrão e descrição do programa, o botão ""Acessar"" lhe dará acesso à pagina de download do programa assim como informações mais detalhadas sobre o mesmo.")
    End Sub

    Private Sub ListBox12_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox12.SelectedIndexChanged
        Select Case (ListBox12.SelectedIndex)
            Case 0
                LCSelect = 0
                TextBox9.Text = "O site SA-MP disponibiliza downloads gratuitos das versões cliente e servidor do mod San Andreas Multiplayer." & vbCrLf & "Nele também é possível ver noticias e estatísticas de quantos players e servidores estão online no momento."
                PictureBox213.BackgroundImage = My.Resources.sa_mp
            Case 1
                LCSelect = 1
                TextBox9.Text = "No fórum samp são discutidas várias questões, onde é possível obter ajuda, postar projetos, ler tutoriais e de uma forma geral obter conhecimento sobre o universo samp." & vbCrLf & "O fórum sa-mp separa várias áreas para idiomas diferentes ao inglês, tornando possível uma integração maior aos usuários do sa-mp em todo o mundo."
                PictureBox213.BackgroundImage = My.Resources.forum_samp
            Case 2
                LCSelect = 2
                TextBox9.Text = "O SA-MP Pt-Br funciona como o fórum sa-mp, com a diferença que é destinado única e exclusivamente ao publico sa-mp português/brasileiro tendo assim uma maior variedade de conteúdos nacionais."
                PictureBox213.BackgroundImage = My.Resources.samp_pt_br
            Case 3
                LCSelect = 3
                TextBox9.Text = "O Convertffs é o mais eficaz site para conversão de map's atualmente, ele converte arquivos .map(Feitos no MTA San Andreas) para .pwn(Arquivo Pawn)."
                PictureBox213.BackgroundImage = My.Resources.convertffs
            Case 4
                LCSelect = 4
                TextBox9.Text = "Tecno-samp é um blog de compartilhamento de arquivos, nele são postados vários programas, filterscripts, gamemodes, includes dentre outras coisas destinadas ao sa-mp."
                PictureBox213.BackgroundImage = My.Resources.tecno_samp
            Case 5
                LCSelect = 5
                TextBox9.Text = "GTA Loucura é um site/blog criado com o intuito de postar modificações para GTA."
                PictureBox213.BackgroundImage = My.Resources.gta_loucura
            Case 6
                LCSelect = 6
                TextBox9.Text = "GTA Inside é o maior site de modificações para GTA do mundo, tendo não só modificações como também programas e utilitários."
                PictureBox213.BackgroundImage = My.Resources.gtainside
            Case 7
                LCSelect = 7
                TextBox9.Text = "O Cade o game possui uma pagina exclusiva ao GTA SA(Base do samp) com muitas informações úteis desde a história e o enredo do jogo até sua estrutura e detalhes técnicos."
                PictureBox213.BackgroundImage = My.Resources.cadeogame
            Case 8
                LCSelect = 8
                TextBox9.Text = "No GameVicio é possível discutir sobre vários assuntos relacionados à jogos, é o fórum que as pessoas procuram geralmente quando há problemas de hardware impedindo o funcionamento do jogo."
                PictureBox213.BackgroundImage = My.Resources.forum_gamevicio
            Case 9
                LCSelect = 9
                TextBox9.Text = "A Wiki sa-mp é o site com o maior conteúdo explicativo sobre programação samp na WEB, nele é possível encontrar desde explicações sobre trechos de código, funções à códigos completos prontos para uso."
                PictureBox213.BackgroundImage = My.Resources.wiki_samp
            Case 10
                LCSelect = 10
                TextBox9.Text = "O Wiki GTA é uma pagina da wikipedia reservada para conteúdos sobre Grand Theft Auto."
                PictureBox213.BackgroundImage = My.Resources.Wiki_GTA
            Case 11
                LCSelect = 11
                TextBox9.Text = "Samp KnD é o blog de um clã de samp onde são postados vídeos, modificações, programas dentre outras coisas."
                PictureBox213.BackgroundImage = My.Resources.samp_knd
            Case 12
                LCSelect = 12
                TextBox9.Text = "Pawn Lang é a apostila oficial da Compuphase destinada à ensinar a linguagem Pawn aos usuários de seu programa compilador e editor de códigos Pawno."
                PictureBox213.BackgroundImage = My.Resources.Pawn_lang
            Case 13
                LCSelect = 13
                TextBox9.Text = "Compuphase é a empresa criadora do Pawn, famoso editor de códigos usado para o desenvolvimento de arquivos .pwn usado no samp, usado para fazer plugins para CS etc."
                PictureBox213.BackgroundImage = My.Resources.compuphase
        End Select
    End Sub


    Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged

    End Sub

    Private Sub PictureBox213_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox213.Click

    End Sub

    Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
        Select Case (LCSelect)
            Case 0
                Process.Start("http://www.sa-mp.com/")                  'sa-mp
            Case 1
                Process.Start("http://forum.sa-mp.com/")                       'fórum sa-mp
            Case 2
                Process.Start("http://www.samp-pt.com.br/")             'sa-mp pt-br
            Case 3
                Process.Start("http://www.convertffs.com/")             'Convertffs
            Case 4
                Process.Start("http://www.tecno-samp.net/")                     'Tecno-samp
            Case 5
                Process.Start("http://www.gtaloucura.com/")             'GTA Loucura
            Case 6
                Process.Start("http://www.gtainside.com/")                      'GTA Inside
            Case 7
                Process.Start("http://www.cadeogame.com.br/GTASA/Pagina/314/Inicio-do-Enredo-Historia/") 'Cade o Game
            Case 8
                Process.Start("http://forum.gamevicio.com/")            'Forum GameVicio
            Case 9
                Process.Start("http://wiki.sa-mp.com/")                 'Wiki sa-mp
            Case 10
                Process.Start("http://gta.wikia.com/")                  'Wiki GTA
            Case 11
                Process.Start("http://sampknd.blogspot.com.br/")                'Samp KnD
            Case 12
                Process.Start("http://www.compuphase.com/pawn/Pawn_Language_Guide.pdf") 'Pawn Lang
            Case 13
                Process.Start("http://www.compuphase.com/")             'Compupshase
        End Select
    End Sub

    Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click
        MsgBox("Acima, uma pre visualização da pagina em seleção, abaixo, o botão que lhe redirecionará à ela, a lista no campo superior direito da pagina disponibiliza os títulos das paginas enquanto que, o campo abaixo exibe uma breve descrição sobre ela.")
    End Sub

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

    End Sub

    Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
        If MostrarOcultar = True Then
            Dim Texto As String = "01 - Não utilize ctrl-c ctrl-v, mesmo que esteja editando um código, sempre crie, digite do zero tudo o que precisará usar." & vbCrLf & "Há pessoas que copiam a linha if(strcmp(cmdtext, ""/comando"", true)) e colom abaixo editando apenas o nome do comando e não sabem para que serve o strcmp na verdade. E o dia que não tiverem de onde copiar não vão saber o que fazer, como criar um comando com esta função, não conhecem os parâmetros." & vbCrLf & vbCrLf
            Dim TextoA As String = "02 - Ao iniciar na linguagem um erro de muitos é querer lançar seu próprio servidor, consequentemente pegam o GM que consideram mais completo para editar e muitas vezes esse GM é totalmente mal feito, mal estruturado, mal otimizado. Aprender à codar com códigos mal feitos vai fazer com que seus códigos também sejam mal feitos, há GM's com 80 mil linhas que se fossem otimizados teriam no máximo 20 mil. Um código ou um GM ser grande não torna ele completo, ter todos os recursos desejados e ainda assim ser otimizado faz com que ele seja completo." & vbCrLf & vbCrLf
            Dim TextoB As String = "03 - Evite a utilização de códigos de terceiros, cada scripter tem seu modo de codar, o dele pode não se adequar ao seu, pode haver conflitos entre um código e outro, entre GM e FS, então sempre ao usar o código de alguém seja como FS ou código útil sempre verifique que efeito ele causará em seu código, se for preciso, adapte-o." & vbCrLf & vbCrLf
            Dim TextoC As String = "04 - Contar celulas não é disperdício e tempo e sim economia de memória, muitas pessoas usam 128 ou 256 celulas em strings minusculas, até em mensagens contendo apenas bom dia ou o endereço de um site, as celulas restantes vão se acumular e gerarão um número enorme de celulas não sendo usadas ocupando espaço na memória." & vbCrLf & vbCrLf
            Dim TextoD As String = "05 - A identação dos códigos não é apenas um modo de organização do script, é também um modo de deixa-lo mais legível e dinâmico, um código bagunçado é difícil de compreender mesmo para alguém acostumado com este tipo de identação mas cuidado, um código cheio de espaços não significa um código identado, não exagere criando espaços onde não deve, mantenha um padrão de identação do começo ao final do script." & vbCrLf & vbCrLf
            Dim TextoE As String = "06 - Crie o hábito de fazer anotações em seus códigos, posteriormente você pode parar com o projeto e quando voltar se sentirá perdido em meio à tanta coisa sem uma explicação, caso passe o código à outro scripter também será necessário ter anotações pois ele não participou do processo de criação que você fez e não compreende a lógica do código usada e não compreenderá à menos que analise bem o código o que pode ser feito de maneira mais rápida quando se há anotações." & vbCrLf & vbCrLf
            Dim TextoF As String = "07 - Mantenha sempre seu samp server limpo, seja no host ou no próprio computador, nunca deixe que sejam acumulados arquivos desnecessários, que não estão e nunca estarão em uso principalmente quando se trata da scriptfiles."
            Dim TextoG As String = "08 - Tome muito cuidado em relação à empresas de hospedagem, muitas não são confiáveis, nunca faça o upload do arquivo .pwn ele não é necessário para o funcionamento do servidor então prive os outros de acesso à este arquivo que é praticamente o coração do servidor. Se possível, use um sistema de encriptação de senhas para proteger as contas de usuários." & vbCrLf & vbCrLf
            Dim TextoH As String = "09 - Aprenda a função de cada sintaxe e seus parâmetros antes de utiliza-lo, saber como funcionam é excencial para saber como seu código está sendo estruturado." & vbCrLf & vbCrLf
            Dim TextoI As String = "10 - Não deixe que acumule warnings na compilação de seu script, mesmo warnings não impedindo que o código seja carregado ele sinaliza de que algo não está feito de maneira correta então dê a atenção que os warnings merecem, concerte-os."
            TextBox10.Text = Texto & TextoA & TextoB & TextoC & TextoD & TextoE & TextoF & TextoG & TextoH & TextoI
            Button61.Text = "Ocultar"
            MostrarOcultar = False
        ElseIf MostrarOcultar = False Then
            Button61.Text = "Exibir"
            MostrarOcultar = True
            TextBox10.Text = " "
        End If
    End Sub

    Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click
        MsgBox("A lista no canto superior da pagina disponibiliza títulos de várias utilidades, ao selecionar um deles é exibido na caixa abaixo informações como autor, descrição da utilidade e fonte. O botão ""Acessar"" à direita lhe dará acesso à pagina da utilidade.")
    End Sub
End Class