Public sub new()?

[virtuale]

no, no entendi.

Tu dices que tengo que pasar algo dentro del public sub new ( y el valor que le paso)

yo tengo:

Código vb:

Public Class clsEmpresa
    Public Sub New()
        mEvento = New clsEvento
    End Sub
 

y:

Código vb:

Public Class clsEvento
    Private mID As Integer
    Private mFecha As Date
    Private mNombre As String
    Private mDireccion As String
    Private mTipo As Integer
    Private mCantidad As Integer
    Private mCostoFijo As Double
    Private mCostoTotal As Double
    Private mColPaquetesExtra As ArrayList
    Public Sub New(ByVal pID As Integer, ByVal pFecha As Date, ByVal pNombre As String, ByVal pDireccion As String, ByVal pTipo As Integer, ByVal pCantidad As Integer, ByVal pCostoFijo As Double, ByVal pCostoTotal As Double, ByVal pColPaquetesExtra As ArrayList)
        ID = pID
        Fecha = pFecha
        Nombre = pNombre
        Direccion = pDireccion
        Tipo = pTipo
        Cantidad = pCantidad
        CostoFijo = pCostoFijo
        CostoTotal = pCostoTotal
        PaquetesExtra = pColPaquetesExtra
    End Sub
 

No entiendo que es lo que le tengo que pasar al publi sub new dentro de los ().