Public Sub New(v1() As Short, a1 As A, v2 As Boolean, v3 As Integer, v4 As Char, v5 As Short, v6 As Integer, v7 As Long, v8 As Double, v9 As Single, v10 As String)
Me.v1 = v1
Private v1 As Boolean
Private v2 As Integer
Private v3 As Char
Private v4 As Short
Private v5 As Integer
Private v6 As Long
Private v7 As Double
Private v8 As Single
Private v9 As String
Public Sub New(vs() As Short, a1 As A, v1 As Boolean, v2 As Integer, v3 As Char, v4 As Short, v5 As Integer, v6 As Long, v7 As Double, v8 As Single, v9 As String)