Visual Basic

Imports System.Text.RegularExpressions
Imports Microsoft.Office.Interop.Word

Public Shared Function ReadFile(ByVal filename As String) As String
   Dim app As ApplicationClass = Nothing
   Dim objFilename As Object = CType(filename, Object)
   Dim readOnly As Object = True
   Dim isVisible As Object = False
   Dim missing As Object = System.Reflection.Missing.Value
   Try
      app = New ApplicationClass()
      Dim doc as Document = app.Documents.Open(objFilename, missing, readOnly, missing,
         missing, missing, missing, missing
         missing, missing, missing, isVisible,
         missing, missing, missing)
      doc.Activate()
      Dim text As String = doc.Content.Text
      Return StripText(text)
   Catch
      Throw
   Finally
      If Not(app Is Nothing)
         app.Quit(missing, missing, missing)
      End If
   End Try
End Function

Public Shared Function StripText(ByVal str As String) As String
   Dim re as Regex = New Regex("[^a-zA-Z_0-9.?\-\(\)\\\/\:\;\""\'\,\s]")
   str = re.Replace(str, "")
   re = new Regex("\s+")
   str = re.Replace(str, " ")
   Return str
End Function

//in Form1
Form2 f = new Form2();
f.button1.Click += ...;
f.button2.Click += ...;

//in Form2
public event EventHandler Button1Clicked;
public event EventHandler Button2Clicked;

//button1 event handler
private void button1_Click(object sender, EventArgs e) {
   if (Button1Clicked != null)
      Button1Clicked(this, EventArgs.Empty);
}

//in Form1
Form2 f = new Form2();
f.Button1Clicked += ...;
f.Button2Clicked += ...;

    Private WithEvents b1f2 As Button<br />
    Private WithEvents b2f2 As Button<br />
<br />
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Dim form2 As New Form2<br />
<br />
        b1f2 = form2.btn1frm2<br />
        b2f2 = form2.btn2frm2<br />
        AddHandler b1f2.Click, AddressOf b1f2_click<br />
        AddHandler b2f2.Click, AddressOf b2f2_click<br />
<br />
        form2.Show()<br />
<br />
    End Sub<br />
<br />
    Private Sub b1f2_click(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
        ListBox1.Items.Add("1")<br />
    End Sub<br />
<br />
    Private Sub b2f2_click(ByVal sender As System.Object, ByVal e As System.EventArgs)<br />
        ListBox1.Items.Add("2")<br />
    End Sub<br />