“构造函数调用仅作为第一条语句有效”错误，但它是第一条语句

Question

当我试图调用此构造函数时出现错误Constructor call is valid only as the first statement in an instance constructor。我该如何纠正？

我调用构造函数是这样的：

  Dim frmPull As Shipping.frmPullFromLocation 
      frmPull = Shipping.frmPullFromLocation.New(datPickListDate, datRequestDate, datShipDate, intList, intQuantity, intRequest, strAdditionalInfo, strJobNumber, strItemCode) 
      frmPull.ShowDialog() 

。

Public Sub New(ByVal datPickListDate As Date, ByVal datRequestDate As Date, ByVal datShipDate As Date, ByVal intList As Integer, ByVal intQuantity As Integer, ByVal intRequest As Integer, ByVal strAdditionalInfo As String, ByVal strJobNumber As String, ByVal strItemCode As String) 
     MyBase.New() 

     'Set local variables to the parameters passed in. 
     Me.datPickListDate = datPickListDate 
     Me.datRequestDate = datRequestDate 
     Me.datShipDate = datShipDate 
     Me.intList = intList 
     Me.intQuantity = intQuantity 
     Me.intRequest = intRequest 
     Me.strAdditionalInfo = strAdditionalInfo 
     Me.strJobNumber = strJobNumber 
     Me.strItemCode = strItemCode 

     Dim _frmPullFromLocation As frmPullFromLocation = Me 
     AddHandler MyBase.Load, New EventHandler(AddressOf _frmPullFromLocation.frmPullFromLocation_Load) 
     Me.blnShowMessage = True 
     Me.InitializeComponent() 
    End Sub 

Answer 1

 Dim frmPull As Shipping.frmPullFromLocation 
     frmPull = Shipping.frmPullFromLocation.New(datPickListDate, datRequestDate, datShipDate, intList, intQuantity, intRequest, strAdditionalInfo, strJobNumber, strItemCode) 
     frmPull.ShowDialog() 

改变，要

 Dim frmPull As Shipping.frmPullFromLocation 
     frmPull = new Shipping.frmPullFromLocation(datPickListDate, datRequestDate, datShipDate, intList, intQuantity, intRequest, strAdditionalInfo, strJobNumber, strItemCode) 
     '   ^^^ new! 
     frmPull.ShowDialog() 

你不叫新像一个共享或静态方法。