RefEdit Emulation for .NET

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim excelApp As Excel.Application = Nothing

        ' Create an Excel App
        Try
            excelApp = Marshal.GetActiveObject("Excel.Application")
        Catch ex As COMException
            ' An exception is thrown if there is not an open excel instance.                    
        Finally
            If excelApp Is Nothing Then
                excelApp = New Microsoft.Office.Interop.Excel.Application
                excelApp.Workbooks.Add()
            End If
            excelApp.Visible = True

            Me.Excel2007RefEdit1.ExcelConnector = excelApp
            Me.Excel2007RefEdit2.ExcelConnector = excelApp
            Me.Excel2007RefEdit3.ExcelConnector = excelApp
        End Try

        Me.Excel2007RefEdit1.Focus()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Button1.Focus()
    End Sub

    'Private Sub Excel2007RefEdit1_AfterResize(ByVal sender As Object, ByVal e As LeafCreations.EventArgs.AfterResizeEventArgs) Handles Excel2007RefEdit1.AfterResize
    '    MsgBox(String.Format(": IsMinimized = {0}", e.DisplayState.IsParentMinimized))
    'End Sub

    'Private Sub Excel2007RefEdit1_BeforeResize(ByVal sender As Object, ByVal e As LeafCreations.EventArgs.BeforeResizeEventArgs) Handles Excel2007RefEdit1.BeforeResize
    '    MsgBox(String.Format("BeforeResize: IsMinimized = {0}", e.DisplayState.IsParentMinimized))
    'End Sub

    Private Sub Excel2007RefEdit1_OnSelectionChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Excel2007RefEdit1.Changed
        Me.TextBox1.Text = Me.Excel2007RefEdit1.Address
    End Sub

    Private Sub chkShowSheetName_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkShowSheetName.CheckedChanged
        Me.Excel2007RefEdit1.IncludeSheetName = Me.chkShowSheetName.Checked
    End Sub

    Private Sub chkShowRowAbsolute_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkShowRowAbsolute.CheckedChanged
        Me.Excel2007RefEdit1.ShowRowAbsoluteIndicator = Me.chkShowRowAbsolute.Checked
    End Sub

    Private Sub chkShowColumnAbsolute_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkShowColumnAbsolute.CheckedChanged
        Me.Excel2007RefEdit1.ShowColumnAbsoluteIndicator = Me.chkShowColumnAbsolute.Checked
    End Sub
End Class