くだすれOpenGL（超初心者用）

VB6でOpenGLのプログラムを作っているのですが、100万本の直線群を回転させたい場合、毎回　バッファクリア→角度設定→100万本描画→画面表示　の作業(下記例)を繰り返さなければならないのでしょうか？
もっと高速に回転描画させる方法はないでしょうか？
初心者ですが、よろしくお願いいたします。

Call glClear(clrColorBufferBit Or clrDepthBufferBit)
Call glRotatef(angle, 1, 0, 0)
Call glBegin(bmLineStrip) '中心線の直線群
for i=1 to 1000000
Call glVertex3f(x(i), y(i), z(i))
next i
Call glEnd
Call SwapBuffers(Picture1.hdc)