Ajustes de pantalla

[fredy666]

Asi:

Código:

        Dim form As New frmInicio
        Dim w As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
        Dim h As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        Dim original As New Drawing.Bitmap("rutadelaimagen.extension")
        If w = 800 Then
            Dim fondo As New System.Drawing.Bitmap(original, 799, 510)
            Me.BackgroundImage = fondo
        Else
            Dim fondo As New System.Drawing.Bitmap(original, 1029, 690)
            Me.BackgroundImage = fondo
        End If