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