The Dim lines are variable declarations, this line for instance:

> Dim LD As TLedger

... translates to:

Local LD As TLedger
LD = CreateObject('TLedger')

The "If ... Else ... End If" translates to "IF ... ELSE ... ENDIF", and MsgBox in VB is MessageBox() in Vfp:

> MsgBox "Please check whether Tally is running."

MESSAGEBOX("Please check whether Tally is running.")

hth
-Stefan


> Anil
>
> I want help in converting the code below in visual basic to visual foxpro.
>
>
> Dim LD As TLedger
> Dim TM As New TMasters
> Dim TC As New TLCore
>
> If TC.IsTallyRunning(sServer) = True Then
> LD.Name_ = "My New Ledger"
> LD.Parent_ = "Sundry Creditors"
> LD.ExciseLedgerClassification_ = "Default"
> LD.IsBillwiseOn_ = "Yes"
> LD.IsCostCentresOn_ = "No"
> LD.IsInterestOn_ = "No"
> LD.AllowInMobile_ = "No"
> LD.IsCondensed_ = "No"
> LD.AffectsStock_ = "No"
> LD.ForPayroll_ = "No"
> LD.InterestOnBillwise_ = "No"
> LD.OverrideInterest_ = "No"
> LD.OverrideAdvInterest_ = "No"
> LD.UseForVAT_ = "No"
> LD.IgnoreTDSExempt_ = "No"
> LD.IsTCSApplicable_ = "No"
> LD.IsTDSApplicable_ = "No"
> LD.IsFBTApplicable_ = "No"
> LD.IsGSTApplicable_ = "No"
> s = TM.XLedger_90(sCurrentCompany, LD, "Alter")
> Else
> MsgBox "Please check whether Tally is running."
> End If