| Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try AxWfrControl1.Close() AxWfrControl1.Open("d:\test\sample.wfr", "User1", "abc") AxWfrControl1.Import("#1", 103, "d:\test\sample.utf8.csv") AxWfrControl1.Create() Catch ex As Exception MessageBox.Show(AxWfrControl1.GetLastErrorMsg(), "ERROR") End Try End Sub |