Imports Microsoft.VisualBasic.PowerPacks
Imports Microsoft.VisualBasic.Compatibility
Public Class Form1
Private arrayList1 As ArrayList
'Private sharp0 As LineShape
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub add()
Dim ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer()
Dim sharp0 = New Microsoft.VisualBasic.PowerPacks.LineShape()
ShapeContainer1.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {sharp0})
Me.SuspendLayout()
sharp0.X1 = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Button1.Left) + VB6.PixelsToTwipsX(Button1.Width))
sharp0.Y1 = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Button1.Top) + VB6.PixelsToTwipsY(Button1.Height) / 2)
sharp0.X2 = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Button1.Left + 50) + VB6.PixelsToTwipsX(Button1.Width) + 100)
sharp0.Y2 = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Button1.Top) + VB6.PixelsToTwipsY(Button1.Height + 100) / 2)
Me.Controls.Add(ShapeContainer1)
'arrayList1.Add(New ShapeContainer)
'Me.PointToClient()
Me.ResumeLayout(False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.add()
End Sub
End Class
可我往arrayList1里加的时候报运行时错误。我是做C#的，实在搞不懂VB这块控件数组怎么弄，请各位老大帮忙呀！今天就必须做出来啊！谢谢！！
