VERSION 5.00
Begin VB.Form frmD3D 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows の既定値
End
Attribute VB_Name = "frmD3D"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'
'初期化
'
Private Sub Form_Load()
    '初期化処理
    Me.Show         'frmD3Dを表示
    DoEvents        'OSへ制御を譲渡
    Call InitD3D    'Direct3D初期化処理
    Call InitGeometry   '三次元空間構築処理
    Theta = 0           '回転角度の値を初期化
    
    '描画ループ
    RenderFlag = True   '描画フラグOn
    Do While RenderFlag = True  'フラグOnの間繰り返す
        Call Render     '描画処理
    '   Call Render2
        DoEvents        'OSへ制御を譲渡
    Loop
End Sub

'
'終了
'
Private Sub Form_Unload(Cancel As Integer)
    '終了処理
    RenderFlag = False  '描画フラグOff
    Call ReleaseObject  '開放処理
    End
End Sub

