VisualStudio2019を使用し VBでOpenCvSharp3をつかってUSBカメラをリアルタイム表示したい。

前提・実現したいこと

VisualStudio2019を使用し言語VBでOpenCvSharp3をつかってUSBカメラをリアルタイム表示したく
アプリを作ろうとしています。
※最終的には別のアプリにカメラ機能を組み込みフォームにリアルタイムの映像を表示、
画像保存したいです。

発生している問題・エラーメッセージ

エラーメッセージはありません。

該当のソースコード

VB
Imports OpenCvSharp
Imports OpenCvSharp.Extensions

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    'WEBカメラ起動
    Dim capture As VideoCapture = New VideoCapture(1)
    'カメラ解像度指定
    'Dim width As Double = 1600
    'Dim height As Double = 1200
    'capture.Set(VideoCaptureProperties.FrameWidth, width)
    'capture.Set(VideoCaptureProperties.FrameHeight, height)

    '画像撮影、表示、保存
    Dim map As Mat = New Mat
    Dim img As Bitmap

    capture.Read(map)
    img = BitmapConverter.ToBitmap(map)
    PictureBox1.Image = img
    img.Save("保存先/写真名.jpg")


    Cv2.DestroyAllWindows()

End Sub

End Class

試したこと

上記にWhile文を組み込んだ

    While True
        Dim map As Mat = New Mat
        Dim img As Bitmap

        capture.Read(map)
        img = BitmapConverter.ToBitmap(map)
        PictureBox1.Image = img
        img.Save("保存先/写真名.jpg")
    End While

保存先の写真は更新されるが
ウインドウが表示されなくなった。