Private Sub Form_Open(Cancel As Integer)

Dim oGCC As RECT

Metin1.Value = GetSystemMetrics(0)  BU ALAN SİYAHLAŞIYOR Bİ TÜRLÜ ÇÖZEMEDİM

Metin3.Value = GetSystemMetrics(1)

    Dim pir

    GetClipCursor oGCC

    With oGCC

    pir = .droit & " x " & .bas

    If pir <> "1280 x 800" Then

    Call ChangeTo1280_800

     End If

     End With

End Sub