Sn.sledgeab
Hocam aşağıdaki satırda hata alıyorum yardımcı olabilirmisiniz bu konuda?

Private Sub Form_Open(Cancel As Integer)

Dim oGCC As RECT (BU SATIRDA HATA ALIYORUM FORM AÇILIRKEN)

Metin1.Value = GetSystemMetrics(0)

Metin3.Value = GetSystemMetrics(1)

    Dim pir

    GetClipCursor oGCC

    With oGCC

    pir = .droit & " x " & .bas

    If pir <> "1024 x 768" Then

    Call ChangeTo1024_768

     End If

     End With

End Sub

Ayrıca formu hazırladığım ekran çözünürlüğü 1280X800 bununla alakası olabilir mi?