复制Picture里的内容包插控件保存为图片解决方案

复制Picture里的内容包插控件保存为图片
Picture比较长或宽，超出屏幕，用滚动条显示，怎么把这个Picture的内容，包括控件一起保存为图片。

谢谢。
[最优解释]
Private Sub SaveToBMP_Click()
    Dim NameWithPath As String
    Dim PictureGetImg As FormMain
    On Error GoTo Cancel
    With CommonDialogBMP
        .CancelError = True
        .Filter = "Pictures (*.bmp)
[其他解释]
keybd_event是什么，试不出来。
[其他解释]
写点代码分享下呀。谢谢。
[其他解释]
*.bmp"
        .DefaultExt = "bmp"
        .InitDir = App.Path
        .FileName = "default"
        .DialogTitle = "定义保存当前窗口画面文件名"
        .Flags = cdlOFNOverwritePrompt
        .ShowSave
        NameWithPath = .FileName
        
    End With
    
    'If Trim(dir(NameWithPath)) = "" Then Exit Sub
    
    DoEvents
    keybd_event vbKeySnapshot, 1, 0, 0
    DoEvents
    'FormMain.Picture = Clipboard.GetData(vbCFBitmap)
    
    SavePicture Clipboard.GetData(vbCFBitmap), NameWithPath
    FormMain.Cls
    Clipboard.Clear
Cancel:
    Err.Clear
End Sub

试试看咯
[其他解释]
可以使用DirectX来获取。