Attribute VB_Name = "GraKa"
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const HWND_TOP = 0
Public Const SWP_SHOWWINDOW = &H40

Sub Test()

Dim oView As View
Dim oCamera As Camera


Set oView = ThisApplication.ActiveView
Set oCamera = oView.Camera

oView.DisplayMode = kShadedRendering
 
SetWindowPos oView.hwnd, HWND_TOP, 0, 0, 1024, 768, SWP_SHOWWINDOW
  
oView.Fit (True)
  
  
T = Timer()
For i = 0 To 25
  oCamera.ViewOrientationType = kIsoBottomLeftViewOrientation
  oCamera.Apply
  oCamera.ViewOrientationType = kIsoTopRightViewOrientation
  oCamera.Apply
  oCamera.ViewOrientationType = kIsoTopLeftViewOrientation
  oCamera.Apply
  oCamera.ViewOrientationType = kIsoBottomRightViewOrientation
  oCamera.Apply
Next i
T = Timer() - T




MsgBox "Bildrate 1024 X  768 = " + Format(100 / T, "0.00") + " Hz"


End Sub