Public Class ThisDocument

    Private Sub ThisDocument_Open() Handles Me.Open
        Dim frmMain As New frmMain
        frmMain.Show()

    End Sub

    Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup

    End Sub

    Private Sub ThisDocument_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown

    End Sub

End Class
