Button problem...

[Pepsi-]

Hi, sorry for posting so many threads about me needing help....

But im still working on my Trainer (My first one) the help that i need for this one is that when i want to click on a button for an example i want to click on "Unlock all titles" i want it to activate the hack.

But, when i don't know the code for it... well i don't know how to do it lol :P I know how to do it with the "Combobox" but not with a regular button.... (I know that's very stupid)

Here is the code so you guys can help me were to put it. BTW Button number 5 is the TITLES :P

Public Class Form1

    Dim MW3 As New Mw3_Trainer

    Private Property Backimg As Color

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MW3.Hack("iw5mp")
        MW3.SetInt(&H1DC04C8, ComboBox2.Text)
    End Sub


    Private MyList As Integer() = {0, 800, 1900, 3100, 4900, 7100, 9600, 12400, 15600, 19200, 23100, 27500, 32400, 37800, 43700, 50100, 57000, 64400, 72300, 80700, 89600, 99000, 108900, 119300, 130200, 141600, 153500, 165900, 178800, 192200, 206200, 220800, 236000, 251800, 268200, 285200, 302800, 321000, 339800, 359200, 379200, 399800, 421000, 442800, 465200, 488200, 511800, 536000, 560800, 586200, 612350, 639250, 666900, 695300, 724450, 754350, 785000, 816400, 848550, 881450, 915100, 949500, 984650, 1020550, 1057200, 1094600, 1132750, 1171650, 1211300, 1251700, 1292850, 1334500, 1377150, 1420300, 1464450, 1509100, 1554750, 1600900, 1648050, 1746200}
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MW3.Hack("iw5mp")
        MW3.SetInt(&H1DC02B8, MyList(ComboBox1.SelectedIndex))
    End Sub


    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MW3.Hack("iw5mp")
        MW3.SetInt(&H1DC2327, ComboBox3.Text)

    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Label1.Location.X + Label1.Width < 0.0 Then
            Label1.Location = New Point(Me.Width, Label1.Location.Y)
        Else
            Label1.Location = New Point(Label1.Location.X - 3, Label1.Location.Y)
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        MW3.Hack("iw5mp")
        MW3.SetInt(&H1DC232F, ComboBox4.Text)

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        MW3.Hack("iw5mp")
        MW3.SetInt(&H1DC216C, )
    End Sub
End Class