Imports System.IO
Imports System.Drawing

Public Class fmProfile
    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles MyBase.Loaded
        Dim ds As New NEADataSet
        Dim da As New NEADataSetTableAdapters.User_DetailsTableAdapter
        Dim dt As New NEADataSet.User_DetailsDataTable
        Dim dr As NEADataSet.User_DetailsRow

        dt = da.GetData()
        Dim Q As String = "[FirstName] =  'Alan'"
        Dim result() As NEADataSet.User_DetailsRow = dt.Select(Q)

        Dim bytes As [Byte]() = result(0).ProfilePic
        Dim ms As New MemoryStream(bytes)

        Dim bi As New BitmapImage()
        bi.BeginInit()
        bi.StreamSource = ms
        bi.EndInit()

        profilePic.Source = bi

    End Sub

    Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
        Me.Close()
    End Sub


End Class