這個VB程序幫我指點壹下該怎麽編程，清除就是清空，移去就是刪除，結束就是關閉窗口。

Private Sub Form_Load()

Me.ScaleMode = 3

' 添加演示菜單100個，菜譜自己添加，這裏只是演示

For i = 1 To 100

List1.AddItem "菜名" & i

Next i

List1.Columns = 3 '設置菜譜可以顯示三列

List1.Height = 100 '設定高度

End Sub

Private Sub List1_DblClick() '雙擊菜譜項自動添加

List2.AddItem List1.Text

List2.SetFocus

List2.ListIndex = List2.ListCount - 1

End Sub

Private Sub 添加_Click()

List2.AddItem List1.Text

End Sub

Private Sub 移去_Click()

List2.RemoveItem List2.ListIndex

List2.SetFocus

End Sub

Private Sub 清除_Click()

List2.Clear

End Sub

Private Sub 結束_Click()

Me.Hide '或unload ME

End Sub