Public Class data Public Structure ParamCar Public Alfa As Double Public Eta As Double Public Mw7P As Double Public Z7P As Double Public Sg7P As Double Public Cf As Double Public Kw As Double Public Ja As Double Public Ya As Double Public Nscn As Integer Public Banderascn As Integer Public Metdesdob As Integer Public n As Integer Public metSg As Integer Public metTb As Integer Public metCriticas As Integer Public metTc As Integer Public metPc As Integer Public metomega As Integer Public ieq As Integer End Structure Private _mystructure As data.ParamCar Public Property mystructure() As data.ParamCar Get Return _mystructure End Get Set(ByVal value As data.ParamCar) _mystructure = value End Set End Property Private _name As String Public Property name() As String Get Return name End Get Set(ByVal value As String) dmyarray1 = value End Set End Property End Class
Dim example As New data() example.mystructure.Alfa = 34
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.