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