不知道你要具体怎么传。比如FORM1和FORM2都有label1然后我双击form1的label1就会让form2的label1的值改变。Private Sub Form_Load()Form2.ShowEnd SubPrivate Sub label1_DblClick()Form2.Label1.Caption = Form1.Label1.CaptionEnd Sub