Image.Source присвоить Bitmap

  Private Sub button1_Click(sender As Object, e As RoutedEventArgs) Handles button1.Click
        Dim btm As New Bitmap("C:\Users\administrator\Pictures\Arts\dr.jpg")
        image_1.Source = BitmapToImage(btm)
    End Sub

    Function BitmapToImage(ByVal btm As Bitmap) As BitmapImage
        Dim ms As New MemoryStream()
        CType(btm, Bitmap).Save(ms, Imaging.ImageFormat.Bmp)
        Dim image As New BitmapImage()
        image.BeginInit()
        ms.Seek(0, SeekOrigin.Begin)
        image.StreamSource = ms
        image.EndInit()
        Return image
    End Function

 Dim Bit_Map As System.Drawing.Bitmap = CType(e.Frame.Clone, System.Drawing.Bitmap)

Class MainWindow
    Function BitmapToImage(ByVal btm As Bitmap) As ImageSource
        Dim ms As New MemoryStream()
        CType(btm, Bitmap).Save(ms, Imaging.ImageFormat.Bmp)
        Dim image As New BitmapImage()
        image.BeginInit()
        ms.Seek(0, SeekOrigin.Begin)
        image.StreamSource = ms
        image.EndInit()
        Return image
    End Function
 
    Private VideoDevices As FilterInfoCollection, VideoSourse As VideoCaptureDevice
    'кнопка старта 
    Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
        VideoSourse = New VideoCaptureDevice(VideoDevices(ListBox_Devices.SelectedIndex).MonikerString)
        AddHandler VideoSourse.NewFrame, AddressOf NewFrame
        VideoSourse.Start()
    End Sub
 
    '
    Private Sub NewFrame(sender As Object, e As NewFrameEventArgs)
        Dim B As Bitmap = e.Frame.Clone
        image.Source = BitmapToImage(B)
    End Sub
 
    Private Sub button_stop_Click(sender As Object, e As RoutedEventArgs) Handles button_stop.Click
        VideoSourse.Stop()
    End Sub
 
    'Загрузка формы
    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        VideoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)
        If VideoDevices.Count > 0 Then
            For Each x As FilterInfo In VideoDevices
                ListBox_Devices.Items.Add(x.Name)
            Next x
            ListBox_Devices.SelectedIndex = 0
        End If
    End Sub
End Class

    Private Sub NewFrame(sender As Object, e As NewFrameEventArgs)
        Dim B As Bitmap = e.Frame.Clone
        Dispatcher.BeginInvoke(New ThreadStart(Sub()
                                                   Image.Source = BitmapToImage(B)
                                               End Sub))
 
    End Sub

   Private Sub Cam_NewFrame(ByVal sender As Object, ByVal e As NewFrameEventArgs)
        Try
            Dim img As System.Drawing.Image = DirectCast(e.Frame.Clone(), Bitmap)
            Dim ms As New MemoryStream()
            img.Save(ms, ImageFormat.Bmp)
            ms.Seek(0, SeekOrigin.Begin)
            Dim bi As New BitmapImage()
            bi.BeginInit()
            bi.StreamSource = ms
            bi.EndInit()
            bi.Freeze()
            Dispatcher.BeginInvoke(New ThreadStart(Sub()
                                                       Image.Source = bi
                                                   End Sub))
        Catch ex As Exception
        End Try
    End Sub