关于两个列表框的问题

Question

请教各位:有这么一个问题:有两个窗体,第一个窗体上有两个列表框控件,第一个列表框用于显示电视台,第二个列表框用于显示节目,当在第一个列表框中选择中央一台时,在第二个列表框中可以显示中央一台的节目列表.然后第二个窗体上也有两个列表框,第一个列表框输入的项目是中央一台的节目项目,第二个列表框输入的是中央二台的节目项目.
我的问题是:如何把第二个窗体的两个列表框中的两个台的节目项目填加到第一个窗体的第二个列表框中呢?(比如说:我点击第一个窗体上的第一个列表框中的中央一台时,它旁边的第二个列表框中显示中央一台的节目项,当我再点击第一个列表框中的中央二台项时,它旁边的第二个列表框中的中央一台的节目项就消失了,刷新显示为中央二台的节目项,当我再次回来再点击第一个列表框中的中央一台时,旁边的第二个列表框就又刷新显示为中央一台的节目项了.)
要实现这个功能,第二个窗体的列表框往第一个窗体的列表框中填加项目.如何实现呢?
请各位高手帮助,多谢!

Answer 1

'Form1Private Sub Form_Load()
List1.AddItem "央视一套"
List1.AddItem "央视二套"
List1.ListIndex = 0
End SubPrivate Sub List1_Click()
Dim i As Integer, s As Integer, n As Integer
s = List1.ListIndex
List2.Clear
n = Form2.List1(s).ListCount - 1
For i = 0 To n
    List2.AddItem Form2.List1(s).List(i)
Next i
End Sub'Form2
Private Sub Form_Load()
With List1(0)
    .AddItem "大风车"
    .AddItem "道德观察"
    .AddItem "东方时空"
    .AddItem "动画城"
    .AddItem "法治在线"
    .AddItem "高端访问"
    .AddItem "见证·发现之旅"
    .AddItem "见证·亲历"
    .AddItem "见证·影像志"
    .AddItem "健康之路周刊"
    .AddItem "讲述"
    .AddItem "焦点访谈"
    .AddItem "今日说法"
    .AddItem "实话实说"
    .AddItem "晚间新闻"
    .AddItem "新闻30分"
    .AddItem "新闻调查"
    .AddItem "新闻联播"
    .AddItem "幸运52"
    .AddItem "艺术人生"
End WithWith List1(1)
    .AddItem "第一时间"
    .AddItem "非常6+1"
    .AddItem "开心辞典"
    .AddItem "生活"
    .AddItem "天天饮食"
    .AddItem "为您服务"
    .AddItem "幸运52"
    .AddItem "艺术品投资"
    .AddItem "中国财经报道"
    .AddItem "全球资讯榜"
    .AddItem "鉴宝"
    .AddItem "交换空间"
    .AddItem "证券时间"
    .AddItem "财富故事会"
    .AddItem "对话"
    .AddItem "健康之路"
    .AddItem "经济信息联播"
    .AddItem "经济与法"
    .AddItem "经济半小时"
    .AddItem "金土地"
    .AddItem "希望周刊"
    .AddItem "商务时间"
End With
End Sub

Answer 2

呵呵不如根据list1的点击选项，把list2隐藏掉并把窗体2对应的list setparent到窗体1去。
开玩笑。。