Combat Arms Injector Help!

I made another Combat Arms Injector but I need help with this because I don't know what to do now...

Screen Shot:
https://i46.tinypic.com/ncmn3n.jpg
I need help with the inject button.When I press it nothing comes.And it still need the name of the dll.I made the browse so you don't need but still :(

i made some but i made them with only auto inject, but try something like

button1.click blablablablalblablabla
timer1.start()

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         

        OpenFileDialog1.Title = "Please Select a .dll"
        OpenFileDialog1.InitialDirectory = "C:\"         

        OpenFileDialog1.ShowDialog()         

    End Sub         

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk         

        Dim SF As System.IO.Stream
        SF = OpenFileDialog1.OpenFile()
          listbox1.items.add( OpenFileDialog1.FileName.ToString())
        If Not (SF Is Nothing) Then
                    strm.Close()
            MessageBox.Show("nothing opened")
        End If         

    End Sub

---

Then Timer1.blablabla

Quote:

---

Originally Posted by NextGen1

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         

        OpenFileDialog1.Title = "Please Select a .dll"
        OpenFileDialog1.InitialDirectory = "C:\"         

        OpenFileDialog1.ShowDialog()         

    End Sub         

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk         

        Dim SF As System.IO.Stream
        SF = OpenFileDialog1.OpenFile()
          listbox1.items.add( OpenFileDialog1.FileName.ToString())
        If Not (SF Is Nothing) Then
                    strm.Close()
            MessageBox.Show("nothing opened")
        End If         

    End Sub

---

Then Timer1.blablabla

---

haha :D yaayyy i was rigth about that thing :D :D

Quote:

---

Originally Posted by NextGen1

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         

        OpenFileDialog1.Title = "Please Select a .dll"
        OpenFileDialog1.InitialDirectory = "C:\"         

        OpenFileDialog1.ShowDialog()         

    End Sub         

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk         

        Dim SF As System.IO.Stream
        SF = OpenFileDialog1.OpenFile()
          listbox1.items.add( OpenFileDialog1.FileName.ToString())
        If Not (SF Is Nothing) Then
                    strm.Close()
            MessageBox.Show("nothing opened")
        End If         

    End Sub

---

Then Timer1.blablabla

---

I thought "bla", had an "h" at the end o.o.

not in my languange XD