Scripts Adobe Reader

Public Class Form1

    Private Sub OpenDocumentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDocumentToolStripMenuItem.Click
        Try

            If OpenFileDialog1.ShowDialog = DialogResult.Cancel Then
                AxAcroPDF1.Visible = False
                Panel1.Visible = True
                Me.MaximizeBox = False
            Else
                AxAcroPDF1.src = OpenFileDialog1.FileName
                AxAcroPDF1.Visible = True
                Panel1.Visible = False
                BackToHomeToolStripMenuItem.Enabled = True
                Me.MaximizeBox = True
            End If
        Catch
        End Try
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        MsgBox("====Creator by RieqyNS13==== rieqyerisya@yahoo.com", MsgBoxStyle.Information, "Informe")
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub

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

            If OpenFileDialog1.ShowDialog = DialogResult.Cancel Then
                AxAcroPDF1.Visible = False
                Panel1.Visible = True
                Me.MaximizeBox = False
            Else
                AxAcroPDF1.src = OpenFileDialog1.FileName
                AxAcroPDF1.Visible = True
                Panel1.Visible = False
                BackToHomeToolStripMenuItem.Enabled = True
                Me.MaximizeBox = True
            End If
        Catch
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("====Creator by RieqyNS13==== rieqyerisya@yahoo.com", MsgBoxStyle.Information, "Informe")
    End Sub

    Private Sub BackToHomeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackToHomeToolStripMenuItem.Click
        Me.Size = New Size(709, 581)
        Panel1.Visible = True
        AxAcroPDF1.Visible = False
        Me.MaximizeBox = False

        BackToHomeToolStripMenuItem.Enabled = False

    End Sub
End Class