S.a kodu kendi çalışmama eklemek istedim, ana sayfadaki metin1 ve metin3 ü iptal etmek modülenin içine değişkenle uygulamak istedim maalesef yapamadım,
lütfen bir bakabilirmisiniz?
kodu aşağıdaki gibi yaptim ve bir çok denemem oldu maalesef olmadı.

Sub cozunurluk()

Dim a As Single

Dim e As Single

a = GetSystemMetrics(0)

e = GetSystemMetrics(1)

Call ChangeScreenResolution(GetSystemMetrics(0), GetSystemMetrics(1))

'Call ChangeScreenResolution(Forms!Form1!Metin1.Value, Forms!Form1!Metin3.Value)



End Sub