Help basic script

I am trying to create a dot with the vb.net code this and the beginning of what I want to do.
but this is generating many errors.
Can someone help me with these errors?



Public Class Form1



Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'MessageBox.Show(KAMYTXT.Text)


Dim PCDApp, PCDPartPrograms, PCDPartProgram


PCDApp = CreateObject("PCDLRN.Application")
PCDApp.visible = True
PCDPartPrograms = PCDApp.PartPrograms
PCDPartPrograms.Open("Z:\MM.PRG", "CMM1")
PCDPartProgram = PCDApp.ActivePartProgram

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object


' Create vectorpoints
Set cmd = PCDCommands.Add(602, True) ' 602 is vectorpoint
cmd.Marked = True
'Featurename is "sourcefeaturename-hitnumber" -> PLANE1-1
retval = cmd.PutText(PCDCommand.ID & "-" & Fcntr, ID, 0) ' name our vectorpoint
'Theo's
retval = cmd.PutText(10, THEO_X, 0) ' set theoretical X with value from hX
retval = cmd.PutText(12, THEO_Y, 0)
retval = cmd.PutText(-2, THEO_Z, 0)
retval = cmd.PutText(0, THEO_I, 0)
retval = cmd.PutText(1, THEO_J, 0)
retval = cmd.PutText(0, THEO_K, 0)
'Targ's
retval = cmd.PutText(10, TARG_X, 0) ' set target X with value from hX
retval = cmd.PutText(12, TARG_Y, 0)
retval = cmd.PutText(-2, TARG_Z, 0)
retval = cmd.PutText(0, TARG_I, 0)
retval = cmd.PutText(1, TARG_J, 0)
retval = cmd.PutText(0, TARG_K, 0)



End Sub



End Class

I am trying to create a dot with the vb.net code this and the beginning of what I want to do.
but this is generating many errors.
Can someone help me with these errors?



Public Class Form1



Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'MessageBox.Show(KAMYTXT.Text)


Dim PCDApp, PCDPartPrograms, PCDPartProgram


PCDApp = CreateObject("PCDLRN.Application")
PCDApp.visible = True
PCDPartPrograms = PCDApp.PartPrograms
PCDPartPrograms.Open("Z:\MM.PRG", "CMM1")
PCDPartProgram = PCDApp.ActivePartProgram

Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object


' Create vectorpoints
Set cmd = PCDCommands.Add(602, True) ' 602 is vectorpoint
cmd.Marked = True
'Featurename is "sourcefeaturename-hitnumber" -> PLANE1-1
retval = cmd.PutText(PCDCommand.ID & "-" & Fcntr, ID, 0) ' name our vectorpoint
'Theo's
retval = cmd.PutText(10, THEO_X, 0) ' set theoretical X with value from hX
retval = cmd.PutText(12, THEO_Y, 0)
retval = cmd.PutText(-2, THEO_Z, 0)
retval = cmd.PutText(0, THEO_I, 0)
retval = cmd.PutText(1, THEO_J, 0)
retval = cmd.PutText(0, THEO_K, 0)
'Targ's
retval = cmd.PutText(10, TARG_X, 0) ' set target X with value from hX
retval = cmd.PutText(12, TARG_Y, 0)
retval = cmd.PutText(-2, TARG_Z, 0)
retval = cmd.PutText(0, TARG_I, 0)
retval = cmd.PutText(1, TARG_J, 0)
retval = cmd.PutText(0, TARG_K, 0)



End Sub



End Class