I have two function in the DLL, compile time I am in the main file, don't know the right, the main function is jieguo (), the main function will be called a child function,
After the operation will be prompted to automation error in vb

Private N As Integer
Private As Integer K
Private leixing As Integer
Private ts As Double
Private tx1 As Double
Private tx2 As Double
Private tx3 As Double
Private re As chengxu. CChengxu

Private Sub Command1_Click ()
Dim the result As a Double
The Set re=New chengxu. CChengxu 'automation error
N=3
K=1
Leixing=1
Ts=100
Tx1=0.01
Tx2=0
Tx3=0
Call re. Jieguo (1, result, N, K, ts, leixing, tx1 and tx2, tx3)
MsgBox (result)
End Sub

Private Sub Form_Unload (Cancel As Integer)
The Set of re=Nothing
End Sub