Yo tengo el mismo problema, aunque he probado otra opcion:
Dim w As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Dim h As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
Y luego redimensionar la imagen, pero no funciona
¿Alguna ayuda pls?????