Visual Basic - Obtener la resolución de la pantalla

Hola amigos, me gustaría saber como puedo hacer para detectar la resolución de la pantalla.
Gracias de antemano.
Un saludo.

Aqui tienes un còdigo muy bueno

http://www.elguille.info/vb/API/resolucionpantalla.htm#especial1

'copiar este codigo el un form y crear un text con nombre text1
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
Dim resol, largo, alto As Integer
largo = GetDeviceCaps(Form1.hdc, 8)
alto = GetDeviceCaps(Form1.hdc, 10)
resol = largo & "x" & alto
Text1.Text = resol

End Sub
'espero te sirva