render animation of multiple breps?

 Private Sub RunScript(ByVal Geometry As OnBrep, ByVal Slider As String, ByVal Toggle As Boolean) 

    If (toggle = False) Then

      Print("gate not open")

      Return

    End If

    Dim i As New Integer

    Dim Geometry_i As New OnBrep

    Dim count As New Integer

    count = Geometry.Count()

    Dim obj_list As New List(Of IRhinoBrepObject)

    For i = 0 To count - 1

      Geometry_i = Geometry(i)

      Dim obj As IRhinoBrepObject = doc.AddBrepObject(Geometry_i)

      obj_list.Add(obj)

      doc.Regen()

    Next

    Dim filename As String = "C:\Documents and Settings\Lian\Desktop\GH_Animation\frame" & Slider & ".jpg"

    app.RunScript("-_Render")

    app.RunScript("-_SaveRenderWindowAs " & Chr(34) & filename & Chr(34))

    app.RunScript("-_CloseRenderWindow")

    For i = 0 To count - 1

      doc.DeleteObject(New MRhinoObjRef(obj_list(i)), True, True)

    Next

  End Sub