Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ListBox1 As New ListBox  '建立ListBox物件
        ListBox1.Location = New System.Drawing.Point(50, 20) '座標
        ListBox1.Name = "ListBox1"                           '名稱
        ListBox1.Size = New System.Drawing.Size(240, 245)    '大小
        ListBox1.BackColor = System.Drawing.Color.AliceBlue  '背景色
        ListBox1.ForeColor = System.Drawing.Color.Black      '前景色
        Controls.Add(ListBox1)       '把ListBox加入From1
    End Sub