Visual Basic 6 - risoluzione attuale dello schermo compreso i colori in bit

Buon giorno e buon anno a tutti

Vorrei sapere se è possibile sapere se all' avvio di un programma si può determinare il tipo di risoluzione dello schermo (completa) è in uso in quel momento.
Per capirci es. 1024x768x32
io col codice sottostante riesco a vedere tutti i possibili modi.

Listscreen.AddItem (CStr(dm.dmPelsWidth) + "x" + CStr(dm.dmPelsHeight) + "x" + CStr(dm.dmBitsPerPel))



non riesco però a determinare quale CStr(dm.dmBitsPerPel)) ho .

Dim HRes As Integer, VRes As Integer


HRes = Screen.Width / Screen.TwipsPerPixelY
VRes = Screen.Height / Screen.TwipsPerPixelX

Listscreen.AddItem HRes & "x" & VRes ??????



qualcuno sa come fare, su internet ho trovato veramente poco.
Grazie

Ciao puoi vedere un'applicazione scritta da me che contiene anche quello della risoluzione dello schermo la trovi in:

pierotofy.it/pages/sorgenti/dettagli/18201-Info_Sistema/

Ciao

Mitico!! hai colpito nel segno. Grazie a tutti Voi

Grazie ai Vs suggerimenti sono riuscito a fare in modo che quando lancio il programma porto la risoluzione a 1024x768 e quando lo chiudo rimetto tutto a posto con la stessa risoluzione che aveva prima.
Tutto bene solo che il tutto non funziona sui portatili che hanno un monitor 16|9 cioè rettangolare e con un' altezza piuttosto piccola.

Secondo voi come posso fare ?