version 6.01 0 Form1 1 1 0 2 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addcombo(form1,ComboBox2,130,70,75,22,"",255,255,255,0,0,0,True,True,3,"Four","FIve","Six",9)@ addcombo(form1,ComboBox1,15,70,75,22,"",255,255,255,0,0,0,True,True,3,"One","Two","Three",9)@ addbutton(form1,Button1,75,235,75,23,"Press me",212,208,200,0,0,0,True,True,9)@ addtextbox(form1,TextBox3,10,200,215,22,"",255,255,255,0,0,0,True,True,False,9)@ addtextbox(form1,TextBox2,130,15,75,22,"2",255,255,255,0,0,0,True,True,False,9)@ addtextbox(form1,TextBox1,15,15,75,22,"1",255,255,255,0,0,0,True,True,False,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show End Sub Sub Button1_Click If ComboBox1.SelectedIndex >= 0 Then cb1 = ComboBox1.Item(ComboBox1.SelectedIndex) End If If ComboBox2.SelectedIndex >= 0 Then cb2 = ComboBox2.Item(ComboBox2.SelectedIndex) End If Textbox3.Text = Textbox1.Text & Textbox2.Text & cb1 & cb2 End Sub