Dim SimdikiWidth As Integer = 1024
Dim SimdikiHeight As Integer = 768
'Form(ların)un loadına yazılan kodlar.
Dim ClientCozunurluk As New Rectangle()
ClientCozunurluk = Screen.GetBounds(ClientCozunurluk)
Dim OranWidth As Single = ClientCozunurluk.Width / SimdikiWidth
Dim OranHeight As Single = ClientCozunurluk.Height / SimdikiHeight
Me.Scale(New SizeF(OranWidth, OranHeight))
Ana form içinde diğer formlar bir kereden fazla açılacaksa; açılan formun her seferinde load bölümüne gelindiğinde nesneler giderek büyür. Bunun olmaması için bunu bi prosedür haline getirip basit kontrollerle çözünürlüğün sadece bir kere ayarlanması sağlayabilirsin.
Kolay gelsin.
