-
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.
-
I have a feeling this belongs to another thread.
-
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.