主题：这个代码为什么不执行？

SizeChanged

Dim s As WinForm.Label = e.Form.Controls("Label1")

Dim Asd As WinForm.Label = e.Form.Controls("Label2")

Dim sz As WinForm.Label = e.Form.Controls("Label3")

Asd.text = s.Font.Size

If e.Form.Width > 0 AndAlso e.Form.Height  > 0 Then

    s.Left = s.Left * (e.Form.Width / vars("width"))

    s.Top = s.Top * (e.Form.Height / vars("height"))

    s.Width = s.Width * (e.Form.Width / vars("width"))

    s.Height = s.Height * (e.Form.Height / vars("height"))

    'Next

    Dim fnt As New Font(s.Font.Name, s.Font.Size * e.Form.Width / vars("width"), s.Font.Style)

    s.Font = fnt

    vars("width") = e.Form.width

    vars("height") = e.Form.height

End If