Quote Originally Posted by Claude Prompt
Format this VB6 code with single statement/dim per line
Code:
Private Sub Form_Load()
    Dim DesktopWindowXamlSourceNative       As IDesktopWindowXamlSourceNative
    Dim CaptureElement                      As ICaptureElement
    Dim MediaCaptureInitializationSettings  As IMediaCaptureInitializationSettings
    Dim MediaCaptureVideoPreview            As IMediaCaptureVideoPreview

    Set m_DesktopWindowXamlSource = NewObject("DesktopWindowXamlSource")
    Set DesktopWindowXamlSourceNative = m_DesktopWindowXamlSource
    Set m_Await = New cAwait
    With DesktopWindowXamlSourceNative
        If .AttachToWindow(picCapture.hWnd) = S_OK Then
            m_hWndIsland = .WindowHandle
            Set CaptureElement = NewObject("CaptureElement")
            Set m_DesktopWindowXamlSource.Content = CaptureElement
            Set m_MediaCapture = NewObject("MediaCapture")
            Set MediaCaptureInitializationSettings = NewObject("MediaCaptureInitializationSettings")
            MediaCaptureInitializationSettings.StreamingCaptureMode = StreamingCaptureMode_Video
            MediaCaptureInitializationSettings.PhotoCaptureSource = PhotoCaptureSource_VideoPreview
            With m_Await
                If .Await(m_MediaCapture.InitializeWithSettingsAsync(MediaCaptureInitializationSettings)) = AsyncStatus_Completed Then
                    Set CaptureElement.Source = m_MediaCapture
                    CaptureElement.Stretch = Stretch_UniformToFill
                    Set MediaCaptureVideoPreview = m_MediaCapture
                    If .Await(MediaCaptureVideoPreview.StartPreviewAsync) = AsyncStatus_Completed Then
                        Set m_ImageEncodingProperties = ImageEncodingPropertiesStatics.CreateJpeg
                        EnumerateSupportedResolutions m_MediaCapture.VideoDeviceController
                    End If
                Else
                    MsgBox Hex$(.ErrorCode) & vbNewLine & .ErrorDescription, vbOKOnly + vbExclamation, App.Title
                End If
            End With
        End If
    End With
End Sub