韓國小姐 劇情介紹 韓國小姐線上看 第1集 韓國小姐線上看 第2集 韓國小姐線上看 第3集 韓國小姐線上看 第4集 韓國小姐線上看 第5集 韓國小姐線上看 第6集

ctrl = ctrl + 1
but(ctrl) = New Button
With but(ctrl)
.Top = ctrl * 33
.Left = 600
.Text = "完成"
.Size = New Size(65, 24)
.Name = "but" & (ctrl)
.Enabled = True
.Visible = True
End With
Me.Controls.Add(but(ctrl))

lab(ctrl) = New Label
With lab(ctrl)
.Top = ctrl * 30
.Left = 10
.Font = New Font("微軟正黑體", 16, FontStyle.Regular)
.Size = New Size(1000, 30)
End With
Me.Controls.Add(lab(ctrl))

lab(ctrl).Text = ("第" & clickcont & "位 " & "電話：" & telnumberscre & " 寵物姓名：" & petname + vbCrLf)

但現在的問題是,我沒辦法控制(觸發每個but(ctrl)_click的事件)請問我應該在哪裡加入哪也些程式碼呢?
我希望的是能產生掛號的順序:
1.xxxxx [按鈕] ←按了可以把這一行消除,然後下面其他的lable和按鈕可以往上提一層
2.xxxxx [按鈕]

...以此類推

ps.我是VB2008:)
謝謝~