Private Sub ClickMe_Click
Dim WorkingForm as Form

Set WorkingForm = mdiMain.ActiveForm

WorkingForm.dowork

End Sub