Public Function GetEnumerator() As IEnumerator

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

public IEnumerator GetEnumerator()

FarPoint.Web.Spread.SmartPrintRulesCollection rules = new FarPoint.Web.Spread.SmartPrintRulesCollection();
FarPoint.Web.Spread.SmartPrintRule spr;
spr = new FarPoint.Web.Spread.BestFitColumnRule(FarPoint.Web.Spread.ResetOption.None);
rules.Add(new FarPoint.Web.Spread.LandscapeRule(FarPoint.Web.Spread.ResetOption.None));
rules.Add(new FarPoint.Web.Spread.ScaleRule(FarPoint.Web.Spread.ResetOption.None, 1, 2, 0.5f));
rules.Add(spr);
IEnumerator re;
re = rules.GetEnumerator();
bool b;
b = re.MoveNext();
if ((b == true)) {
    string msg = re.Current.ToString();
    Response.Write(("<script language=\'javascript\'>alert(\'" 
                    + (msg + "\')</script>")));
}

Dim rules As New FarPoint.Web.Spread.SmartPrintRulesCollection
Dim spr As FarPoint.Web.Spread.SmartPrintRule
spr = New FarPoint.Web.Spread.BestFitColumnRule(FarPoint.Web.Spread.ResetOption.None)
rules.Add(New FarPoint.Web.Spread.LandscapeRule(FarPoint.Web.Spread.ResetOption.None))
rules.Add(New FarPoint.Web.Spread.ScaleRule(FarPoint.Web.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
Dim msg As String = re.Current.ToString()
Response.Write("<script language='javascript'>alert('" & msg & "')</script>")
End If