Why is there an end of statement & expression expected

[WPerciful]

I've been using this code for years, and on the new SDK it now throws an end of statement expected and expression expected error. I'm not sure why this is now an issue whereas it hasn't been or how to resolve it.

 

   <CommandMethod("test")>
Public Sub test()
   Dim ps New Autodesk.AutoCAD.Windows.PaletteSet = Nothing
   ps = As New Autodesk.AutoCAD.Windows.PaletteSet("_")
   Dim dp As dtp = New dtp
   ps.Add("_", dp)
   ps.Visible = True
End Sub

Edited October 3, 2017 by WPerciful

[SLW210]

Please read the Code Posting Guidelines and edit your Code to be included in Code Tags.[NOPARSE]

Your Code Here[/NOPARSE]

=

Your Code Here

[Hippe013]

The only thing that pops out at me is the lack of an underscore.

 

   <CommandMethod("test")> [color="red"]_[/color]
Public Sub test()

[RICVBA]

I'm not a VB.NET-er so just some blind shots here about what's inside the test() sub

 

Public Sub test()
   Dim ps As Autodesk.AutoCAD.Windows.PaletteSet
   ps = New Autodesk.AutoCAD.Windows.PaletteSet("_")
   Dim dp As dtp = New dtp
   ps.Add("_", dp)
   ps.Visible = True
End Sub

 

and should what above ever work, may be some more contracted form would, too

 

Public Sub test()
   With New Autodesk.AutoCAD.Windows.PaletteSet("_")
       .Add("_", New dtp)
       .Visible = True
   End With
End Sub