可以这么考虑!最简单的方法就是直接创建一个ComboBox控件再把下面的代码粘贴到窗体的代码处吧...
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：做网站、网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的安定网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
PrivateSubCombo1_Click()
Text1.Text=Combo1.Text
EndSub
PrivateSubForm_Load()
Combo1.AddItem1,0
Combo1.AddItem2,1
Combo1.AddItem3,2
EndSub
运行程序，点击下拉框即可为文本框赋值。
注意下，“Combo1.AddItem”后面第一个位置写你想要的数值，的二个位置是这个数值的代号
例如上面代码里面“Combo1.AddItem1,0”意思是在下拉框里添加一个数值“1”，代号为“0”，想修改的话把“1”改为你想要的数值就OK了，想继续添加的话也可以在后面加Combo1.AddItem语句。另外，也可以删掉”PrivateSubForm_Load()“到”EndSub“这段代码，直接在Combo1的List里面直接写下你想要的数值也行。又不懂，或是不满意的再问吧，希望对你有帮助~
设置一个全局变量：
Public item As String
然后在第一个窗口那里取：
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里：
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（这个不可改内容的设定可以在建立ComboBox的时候就设定了）
ComboBox2.Items.Add(item) （加入内容，你或者也可以用别的，比如insert，这个可以加到指定的位置）
ComboBox2.SelectedItem = item （显示那个刚加进来的内容）
这样应该可以了，建议你多看MSDN。
Public Class Form1
Dim b(9)() As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a(9) As String '这个数组用来存储第一个下拉框的全部值。
For i = 0 To 9
a(i) = i '赋值。
ReDim b(i)(9) '定义选择第一个下拉框的值时，第二个下拉框分别有十个值。
For j = 0 To 9
b(i)(j) = i '赋值。
Next
Next
ComboBox1.Items.AddRange(a)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
ComboBox2.Items.AddRange(b(ComboBox1.SelectedIndex))
End Sub
End Class
