株式会社テラソフトデザイン

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    Try
        Using wfrCtrl As New WFR2025.WfrControl()
            wfrCtrl.Open("d:\test\sample.wfr")
            wfrCtrl.Import("#1", WFR2025.IT.CSV, "d:\test\sample.csv")
            wfrCtrl.Create()
            wfrCtrl.FileOut(MyClass.Handle, WFR2025.PM.TIFF, "", "c:\out\sample_vb.tif", "ProgressDlg=result")
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message, "ERROR")
    End Try
End Sub