ใน form2 on event B2_CLICK
Private Sub B2_Click()

    Me(Form1).B1_click

END SUB

ใน Form1 On event B1_CLICK
เปลี่ยน Private เป็น Public

Public Sub B1_Click()
   MsgBox "Test with other form"
End Sub

ประมาณนี้ ครับ แต่ ก่อนกด b2 ควรตรวจสอบว่า Form1 เปิดอยู่หรือไม่

มันขึ้นแบบนี้ครับอาจารย์ ผมเปิดทั้ง 2 ฟอร์มแล้วครับ

ได้แล้วครับอาจารย์ ผมแก้เป็น
Forms!Form1.OK_Click

ขอบพระคุณครับ

ลองเปลี่ยนเป็น
Private Sub B2_Click()
    Forms("form1").B1_Click
End Sub

ได้ลองแบบที่ 2 แล้ว ได้เลยครับ ขอบพระคุณอาจารย์มากครับ