Public Function GetEnumerator() As IEnumerator

Dim instance As SmartPrintRulesCollection
Dim value As IEnumerator
 
value = instance.GetEnumerator()

public IEnumerator GetEnumerator()

FarPoint.Win.Spread.SmartPrintRulesCollection rules = new FarPoint.Win.Spread.SmartPrintRulesCollection();
FarPoint.Win.Spread.SmartPrintRule spr;
spr = new FarPoint.Win.Spread.BestFitColumnRule(FarPoint.Win.Spread.ResetOption.None);
rules.Add(new FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None));
rules.Add(new FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.None, 1, 2, 0.5f));
rules.Add(spr);

IEnumerator re;
re = rules.GetEnumerator();
bool b;
b = re.MoveNext();
if (b == true)
{
label1.Text = re.Current.ToString();
}
}

Dim rules As New FarPoint.Win.Spread.SmartPrintRulesCollection
Dim spr As FarPoint.Win.Spread.SmartPrintRule
spr = New FarPoint.Win.Spread.BestFitColumnRule(FarPoint.Win.Spread.ResetOption.None)
rules.Add(New FarPoint.Win.Spread.LandscapeRule(FarPoint.Win.Spread.ResetOption.None))
rules.Add(New FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.None, 1, 2, 0.5))
rules.Add(spr)

Dim re As IEnumerator
re = rules.GetEnumerator()
Dim b As Boolean
b = re.MoveNext()
If b = True Then
Label1.Text = Convert.ToString(re.Current)
End If
End Sub