Formumuza bir adet Timer Koyalim ve asagidaki kodları ekleyelim
Private Sub Timer1_Timer( )
Dim ilkyukseklik, sonyukseklik, ilkgenislik, songenislik
ilkyukseklik = 510
sonyukseklik = 6405
ilkgenislik = 1845
songenislik = 6840
Form1.Width = ilkgenislik
Form1.Height = ilkyukseklik
For...