Visual Basic - resolucion

como hago para saber la actual resolucion de la pc?

Revisa este link ubicado en este mismo sitio..

http://lawebdelprogramador.com/codigo/buscar.php?id=93&texto=Visual%2BBasic&cadena=resolucion

Private Sub Form_Load()
MsgBox (Screen.Width \ Screen.TwipsPerPixelX) & " x " & (Screen.Height \ Screen.TwipsPerPixelY)
Label1.Caption = (Screen.Width \ Screen.TwipsPerPixelX) & " x " & (Screen.Height \ Screen.TwipsPerPixelY)

End Sub