vb.net中运行时动态改变控件大小

  

   Dim  OldX  As   Integer
     Dim  OldY  As   Integer

     Enum mPosition Enum mPosition
        left
        right
        top
        bottom
    End Enum

     Dim  Adjust  As  mPosition


     Private   Sub Label1_MouseDown() Sub Label1_MouseDown(ByVal sender As Object,