Private Sub cmdLogotipo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogotipo.Click
        '-- Establish locals
        Dim loDialog As New OpenFileDialog()
        Dim loImage As System.Drawing.Image

        '-- Set the properties on the form
        loDialog.Multiselect = False

        '-- Show the form
        If loDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                '-- Try to open the image
                loImage = System.Drawing.Image.FromFile(loDialog.FileName)

                '-- Set the image on the record
                Me.EmpresasBO1.emp_Logo = CType(loImage, System.Drawing.Bitmap)

                '-- Set the picture box as well
                Me.PictureBox1.Image = loImage
            Catch ex As Exception
            End Try
        End If
    End Sub