اظهار البيانات في التكست بوكس

السلام عليكم

اعتقد انك تملك الحل ولكن تحتاج لتعديل الكود في Command1 لوجود خطا بسيط فيه واتمنى اني كنت فهمت السؤال صح

Private Sub Command1_Click()

Form2.Text4.Text = "اسم الكاتب: " + Trim(Text1.Text) + vbCrLf + "اسم الكتاب:" + Trim(Text2.Text) + vbCrLf + "اسم محتوى الكتاب :" + Trim(Text3.Text)
Form2.Show
Unload Me

End Sub

بالتوفيق