VB問題：ListBox再一問

Question

要怎麼將List1選取的多項資料同時移到List2裡面？(移一項資料的我會了...)
還有，有一個TextBox，要怎麼將資料加到List1的同時，讓Text1變成空白？

如果List1裡面原本有三項資料，有兩項被移到List2裡，要怎麼按Command之後，設回原始狀態？

再問一個，如果已經在圖片上畫線條，要怎麼按清除鍵讓它回到原始狀態？

Answer 1

'(1)List1選取的多項資料同時移到List2裡面Private Sub Command1_Click()Dim I%For I = List1.ListCount - 1 To 0 Step -1    If List1.Selected(I) Then       List2.AddItem List1.List(I), 0       List2.ItemData(0) = I       List1.RemoveItem (I)    End IfNextEnd Sub'(2)資料加到List1的同時，讓Text1變成空白Private Sub Command2_Click()List1.AddItem Text1.TextText1.Text = ""End Sub'(3)要怎麼按Command之後，設回原始狀態Private Sub Command3_Click()For I = 0 To List2.ListCount - 1    List1.AddItem List2.List(I), List2.ItemData(I)NextList2.ClearEnd Sub'(4)在圖片上畫線條，要怎麼按清除鍵讓它回到原始狀態Private Sub Command4_Click()Picture1.AutoRedraw = TruePicture1.ClsPicture1.AutoRedraw = FalseEnd Sub