Modüldeki

Sub ChangeTo1024_768()

Call ChangeScreenResolution(1024, 768)

End Sub

kodunun altına

Sub ChangeTo800_600()

Call ChangeScreenResolution(800, 600)

End Sub

kodu ekle. modülü kaydet.

formun açıldığında olayındaki kodu da

Dim oGCC As RECT

Metin1.Value = GetSystemMetrics(0)

Metin3.Value = GetSystemMetrics(1)

    Dim pir

    GetClipCursor oGCC

    With oGCC

    pir = .droit & " x " & .bas

    If pir <> "800 x 600" Then

    Call ChangeTo800_600

     End If

     End With

kodu ile değiştir. Uygulamayı 800 X 600 ile açarsan hiçbirşey göremezsin.