A test!

[1 is a prime!]

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

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.

[V(ery) Basic]

I have a feeling this belongs to another thread.

[1 is a prime!]

Opps! Sorry!

I won't even try to convince you that this wasn't a sad attempt to increase my postings tally! An honest mistake...

Cheers,

Steve.