Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim OFD As New OpenFileDialog()
        OFD.InitialDirectory = "C:\Programme"
        OFD.Filter = "Programme (*.exe)|*.exe|All files (*.*)|*.*"
        OFD.FilterIndex = 1
        OFD.RestoreDirectory = True
        If OFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Process.Start(OFD.FileName)
        End If
        OFD.Dispose()
End Sub