Option Explicit

Private Sub Cmdclear_Click()
TextID.Text = ""
TextPassword.Text = ""
TextMane.Text = ""
TextMail.Text = ""
TextResume.Text = ""

End Sub

Private Sub Cmdok_Click()
Formback.TextAll.Text = TextID.Caption & " " & TextID.Text & vbNewLine & _
TextPassword.Caption & " " & TextPassword.Text & vbNewLine & _
TextName.Caption & " " & TextName.Text & vbNewLine & _
TextMail.Caption & " " & TextMail.Text & vbNewLine & _
TextResume.Caption & " " & vbNewLine & TextResume.Text

Load Formback
Formback.Show
Form1.Visible
End Sub

能把改后是什么样子发上来么~？？我不是很明白

Formback.TextAll.Text = labelID.Caption & " " & TextID.Text & vbNewLine & _
labelPassword.Caption & " " & TextPassword.Text & vbNewLine & _
labelName.Caption & " " & TextName.Text & vbNewLine & _
labelMail.Caption & " " & TextMail.Text & vbNewLine & _
labelResume.Caption & " " & vbNewLine & TextResume.Text

非常感谢~~~~~~7楼的