Question

VB，在form1中有一个Label 控件，form2窗体中有一个textbox控件，form2窗体textbox的文字给Label ，请帮忙

我的问题还没有解决：
控件为：form1中有一个Label 控件。在form2窗体中有一个textbox控件和button按钮（保存）。form2窗体中有一个Combo1（0）控件，可选择字体，一个Combo1（1）控件可选择字体颜色。问题如下：
1、点击button保存按钮后，form1中的Label 获得form2窗体的textbox的值，同时关闭form2窗体。
2、选择Combo1（0）控件和Combo1（1）控件后，form1中的Label 的字体和字体颜色跟着变化。
谢谢！
回答你的这些问题全部解决了，颜色、字体大小全部没有问题的。
Form1中text1字体大小、颜色均按Combo1(0)Combo1(1)的改变而改变。
点击按钮后，关闭了Form2,打开Form1，在Form1上的Label1的内容、字体、颜色都是Form1中text1字体大小、颜色。
你是不是没有添加模块？？
追问我添加了模块，照您的输入后，程序一运行后在FORM1中的"Label1.FontSize = 字体"处显示错误。代码为：实时错误380，无效属性值。
不知道是什么原因。
回答模块中的代码输入了没有？我这里一点问题都没有。
Public 颜色, 字体 As Integer, ZFC As String
不要改动，否则会出现错误。
追问代码也加了，我用的也是Win XP SP3 + VB 6.0 SP6。还是出现以下情况。看裁图。
回答你的QQ？我发文件给你。

Answer 1

这个不需要模块也可以完成的啊?
我把全部代码复制在这里,你复制了就可以用的.
form1上；1个Label1，2个按钮Command1和Command2，单击Command1启动Form2，单击Command2，结束程序。
form2上；1个Text1，1个按钮Command1和2个组合框Combo1和Combo2，与你唯一不同，组合框我没有用控件组。
Form1代码：
Private Sub Command1_Click()
Form2.Show
End Sub

Form2代码：
Private Sub Combo1_Click()
Form1.Label1.Font.Name = Combo1.Text
End Sub

Private Sub Combo2_Click()
Select Case Combo2.Text
Case "黑色"
Form1.Label1.ForeColor = &H80000012
Case "红色"
Form1.Label1.ForeColor = &HFF&
Case "蓝色"
Form1.Label1.ForeColor = &HFF0000
End Select
End Sub

Private Sub Command1_Click()
Form1.Label1.Caption = Form2.Text1.Text
Unload Me
End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "宋体"
Combo1.AddItem "新宋体"
Combo1.Text = Combo1.List(0)

Combo2.Clear
Combo2.AddItem "黑色"
Combo2.AddItem "红色"
Combo2.AddItem "蓝色"
Combo2.Text = Combo2.List(0)
End Sub

Answer 2

···