v. basic source

elimde visual basic 6.0 kodu var
bir ürünün kullanma klavuzunda nasıl kullanılır kısmında bu kodu vermiş
fox kodları da yokmuş

aranızda v. basic bilen ve bu kodu kabaca visual foxpro ya çevirebilecek varmı?

teşekkurler

V. basic kodu :
--------------------------------------- 
Option Explicit

Private Sub Form_Load()
Dim Kernel2 As New LMDSKernel2
  On Error GoTo er
     Kernel2.UnlockModule "PUT KEY HERE", LMDSKernelLib2.UnLockFlagsConstants2.UNLOCK_APP_ALWAYS, "AppID"
     MsgBox "SUCCEEDED", , "SUCCEEDED"
     Exit Sub
er:
    MsgBox Err.Description
End Sub