Pasted

Public Class Form1
    Private Sub BukaFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BukaFileToolStripMenuItem.Click
        If OpenFileDialog1.ShowDialog = DialogResult.Cancel Then
            MsgBox("Tidak Ada File Yang Dipilih", MsgBoxStyle.Information, "Informasi")
        Else
            AxAcroPDF1.Visible = True
            BackToHomeToolStripMenuItem.Enabled = True
            AxAcroPDF1.src = OpenFileDialog1.FileName
        End If
    End Sub
 
    Private Sub BackToHomeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackToHomeToolStripMenuItem.Click
        AxAcroPDF1.Visible = False
        BackToHomeToolStripMenuItem.Enabled = False
    End Sub
 
    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Application.Exit()
    End Sub
End Class