Private Sub btnBrowse_Click() Handles btnBrowse.Click
OpenFileDialog1.Showdialog()
End Sub
'Did this in 1 min and its not tested - May contain errors
Private Sub AddToList() Handles OpenFileDialog1.FileOK
Dim tmpFileName As String = OpenFileDialog1.Filename.Substring(OpenFileDialog1.Filename.LastIndexOf("\") + 1)
ListBox1.Items.Add(tmpFileName)
End Sub