Code:
dim d as integer
'Rem
d=1
for i=1 to 10
next i
Ah, so I still have to do all the capitalisation etc... myself. I guess you're meant to cut and paste the code into the window from VB

Code:
Private Sub Form_Load()
Dim DevM As DEVMODE
Dim erg As Long
Dim an As Long

'Get the info into DevM
erg& = EnumDisplaySettings(0&, 0&, DevM)
'We don't change the colordepth, because a
'rebot will be necessary

DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT 'Or DM_BITSPERPEL
DevM.dmPelsWidth = 800 'ScreenWidth
DevM.dmPelsHeight = 600 'ScreenHeight
'DevM.dmBitsPerPel = 32 (could be 8, 16, 32 or even 4)
Cool! Thanks again.

Steve.