VB作业6.2速答

Private Sub Command1_Click()
  If List1.Text = "" Then
    MsgBox "没有选中歌曲！", vbInformation
  Else
    List2.AddItem List1.Text
  End If
End Sub

Private Sub Command2_Click()
  For i = 0 To List1.ListCount - 1
    List2.AddItem List1.List(i)
  Next i
End Sub

Private Sub Command3_Click()
  List2.Clear
End Sub

Private Sub Form_Load()
  List1.AddItem "花海"
  List1.AddItem "爱的城堡"
  List1.AddItem "最美的太阳"
  List1.AddItem "醉赤壁"
  List1.AddItem "我走以后"
  List1.AddItem "属于"
  List1.AddItem "烟火"
  List1.AddItem "人在青山在"
End Sub