> 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

I thought a line like
DIM LD As TLedger
just created a variable that is a copy of whatever TLedger is. While the keyword New in
Dim TM As New TMast
explicitely creates an object of the TMast class.
-Anders