A.Private Sub save_Click() save_Click() Text1.Text=file.save.Caption End Sub B.Private Sub save_Click() Text1.Text=save.Caption End Sub C.Pfivme Sub file_Click() Text1.Text=file.save.Caption End Sub D.Privme Sub file_Click() Text1.Text=save.Caption End Sub