
               EyeCandy 4000 (full)
           ############################

                s/n. DIJOMMHCPEOM
                ################# 

***********************************
Private Sub PicPerson_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicPerson.Click
        Dialog.Filter = "JPEG files (*.jpg)|*.jpg|Bitmap files (*.bmp)|*.bmp"
        Dialog.ShowDialog()

        If Dialog.FileName.Length > 0 Then
            ReDim DataBytes(Dialog.FileName.Length - 1)
            DataBytes = fileToByte(Dialog.FileName)
            Me.PicPerson.SizeMode = PictureBoxSizeMode.StretchImage
            Me.PicPerson.ClientSize = New Size(122, 124)
            Me.PicPerson.Image = ByteToImage(DataBytes)
            Me.PicPerson.Refresh()
        End If
    End Sub
***************************************************

