x = Screen.Width \ Screen.TwipsPerPixelX
Y = Screen.Height \ Screen.TwipsPerPixelY
If CStr(x) + CStr(Y) = "1024768" Then
MDIForm1.Picture = LoadPicture("picture1.jpg")
End If
if cstr(x)+ cstr(Y)="800600" then
MDIForm1.Picture = LoadPicture("picture2.jpg")
end if