>>133

Private Sub Form_Resize()

On Local Error GoTo errorout

'初期化が済んでいたら
If finit = True Then
'解放
Set rmDevice = Nothing
Set rmViewport = Nothing
'新たにクリエイト
Set rmDevice = rm.CreateDeviceFromClipper(ddClipper, "", Me.ScaleWidth, Me.ScaleHeight)
Set rmViewport = rm.CreateViewport(rmDevice, CameraFrame, 0, 0, Me.ScaleWidth, Me.ScaleHeight)
rmDevice.SetQuality D3DRMRENDER_GOURAUD Or D3DRMFILL_SOLID Or D3DRMLIGHT_ON
End If

Exit Sub

errorout:
End

End Sub

この上記でエラーが発生した時の処理だけどもEndに飛ぶのはどうかな。
修正中なんだろうが。