Dim NewPath As PathItem Dim lines() As Object ReDim lines(0) Dim i As Short For i = 0 To 10 ReDim Preserve lines(i) 'LineList(i) = New Object() {x(i), y(i)} lines(i) = New Object() {i ^ 3 + 100, i ^ 2 + 200} '↑vb.netで配列の配列をVariant A…

Dim PoArray() As Integer = New Integer(1) {0, 0} '基準座標用 IllDoc.RulerOrigin = PoArray '基準座標を左下に合わせる

'リストFLにファイルを取得---------------------------------------------------- Dim FL As New List(Of String) Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End If E…