Visual Basic

Private WithEvents oword As Word.Application<br />
Private WithEvents odoc As Word.Document<br />
Private Sub Command1_Click()<br />
<br />
Set oword = New Word.Application<br />
oword.Visible = True<br />
Set odoc = oword.Documents.Open("yourfile.doc")<br />
End Sub<br />
<br />
<br />
Private Sub oword_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean)<br />
<br />
If MsgBox("Do you want to save this file?", vbYesNo, "Save") = vbYes Then<br />
    oword.Activate ' not required if oword is not visible<br />
    odoc.Save<br />
    oword.Documents.Close 'If using word 2000 or below i think you need the argument here to not save changes. That will suppress words messagebox but this works fine with word 2003<br />
    <br />
    oword.Quit<br />
Else<br />
    oword.Activate<br />
    oword.Documents.Close<br />
    oword.Quit<br />
End If<br />
<br />
Set odoc = Nothing<br />
Set oword = Nothing<br />
End Sub

Private Sub btnDataEntry_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDataEntry.Click
Dim frmDataEntry As New DataEntry
Me.Hide()
frmDataEntry.ShowDialog()
frmDataEntry.Dispose()
Me.Show()
End Sub

<br />
public property CalledFrom(frm as Form)<br />
  Get<br />
    return m_Frm1 <br />
  End Get<br />
<br />
  Set(value as Form)<br />
    m_Frm1 = value<br />
<br />
  End Set<br />

dim f as New Form2<br />
f.CalledFrom = me<br />
f.Show

m_frm.show 'or m_frm.Visible = True may work<br />
me.dispose