Ok got it to work. I had to do several things. First thing I had to do was add a reference to interop.pcdlrn.dll to my project.
Then I added this at the very beginning of my program.
Then once program to open is selected I did this.
Public Class Form1
Dim PCDApp As PCDLRN.Application
Dim pcdpartprograms As PCDLRN.PartPrograms
The only issue I have now is that it opens PCDmis then closes then reopens with the part program. I haven't figured out how to keep it from opening first.
Dim fname As String
fname = "Y:\" + Label1.Text + "\" + ListBox1.SelectedItem
PCDApp = CreateObject("PCDLRN.Application")
PCDPartPrograms = PCDApp.partprograms
PCDApp.visible = True