crystal-reports - axmschartをビットマップとして変換できません。（vb.net）

Question

vb6からvb.netに移行するプロジェクトに取り組んでいますが、Crystalレポートの操作中にこの問題が発生しました。実際には、アプリケーションのaxmschartをレポートに出力する必要があります。次のコードを使用しています。

  gtmpString = Application.StartupPath & gsGraphPicPath

    Dim myPic As New Bitmap(_chtAnlysGraph_0.AsBitmap)'''''ERROR here...as bitmap is                   not a member of AXMSCHART''''''''
    PictureBox1.Image = myPic
    PictureBox1.Image.Save(gtmpString, System.Drawing.Imaging.ImageFormat.Png)

    Dim intCount As Short
    Dim dRow As DataRow
    Dim dTable As New DataTable
    Dim dt As New DataSetResults.AnalysisTableDataTable 'Report filling 

    dTable = dt.Copy
    dRow = dTable.NewRow
    For intCount = 1 To msgAnlysData.Rows - 1
        dRow = dTable.NewRow
        dRow.Item("Sr_No") = msgAnlysData.get_TextMatrix(intCount, 1)
        dRow.Item("abs_val") = msgAnlysData.get_TextMatrix(intCount, 2)
        dRow.Item("pt_conc") = msgAnlysData.get_TextMatrix(intCount, 3)
        dRow.Item("lin_conc") = msgAnlysData.get_TextMatrix(intCount, 4)
        dRow.Item("poly_conc") = msgAnlysData.get_TextMatrix(intCount, 5)
        'If gtmpString = True Then
        gtmpString = Application.StartupPath & gsGraphPicPath
        dRow.Item("graph1") = savepic(gtmpString)
        ' End If
        If msgAnlysData.get_TextMatrix(intCount, 2) = Nothing Then

        Else
            dTable.Rows.Add(dRow)
        End If
    Next intCount

ここで私を助けてくださいplzz。

Answer 1

Dim myPic As New Bitmap(_chtAnlysGraph_0)