控件按比例随窗体缩放

 

Public   Class  Form1

     Dim  x  As   Single   =   0
     Dim  y  As   Single   =   0
     Private   Sub  Form1_Load( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles   MyBase .Load
         ' 得到原始窗体大小
        x  =   Me .Width
        y  =   Me .Height
        setTag( Me )
     End Sub