Anybody Could please help this...
MDIParent Form:
-------------------
Event ButtonClick(strKey As String)
Private Sub tbrMain_ButtonClick(ByVal Button _
As MSComctlLib.Button)
RaiseEvent ButtonClick(Button.Key)
End Sub
MDIChild Form:
-----------------
Private WithEvents m_mdiParent As mdiParent
Private Sub Form_Activate()
Set m_mdiParent = mdiParent
End Sub
Private Sub Form_Deactivate()
Set m_mdiParent = Nothing
End Sub
Private Sub m_mdiParent_ButtonClick(strKey As String)
' Sample code assuming Button.Key values of
' "New", "Change", "Delete" and "Save"
Select Case strKey
Case "New"
PerformNewAction
Case "Change"
PerformChangeAction
Case "Delete"
PerformDeleteAction
Case "Save"
PerformSaveAction
End Select
End Sub
Thankyou very much
JoseTA