Delphi-dll a instrukcja w VB

Witam
Mam powązny problem musze skorzystać z dl niestety instrukcje ma pod VB ja musze napisać to w delphi czy możecie mi pomóc.

Option Explicit
Dim axis As ODBAXIS
Dim ret As Integer
Dim FWLIBHND As Integer

Private Sub Form_Initialize()
ret = cnc_allclibhndl(FWLIBHND)
CheckCNCRet (ret)
ReadAxisData
Timer1.Interval = 200
End Sub

Private Sub ReadAxisData()
ret = cnc_absolute(FWLIBHND, ALL_AXES, 2 + 2 + 8 * 4, axis)CheckCNCRet (ret)Text1.Text = Format(axis.lData(0) / 1000, " 0.000 mm;;")
Text2.Text = Format(axis.lData(1) / 1000, " 0.000 mm;;")
Text3.Text = Format(axis.lData(2) / 1000, " 0.000 mm;;")
End Sub

Private Sub Timer1_Timer()
ReadAxisData
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Terminate()
ret = cnc_freelibhndl(ByVal FWLIBHND)
End Sub

Private Sub CheckCNCRet(ByVal ret)
If ret <> 0 Then
Timer1.Enabled = False
MsgBox ("cnc communication failed " + Format(ret, "#####"))
End If
End Sub

Pomocy!!!