Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
Dim RowNumber As Integer
If e.Graphics.MeasureString(Label1.Text, Label1.Font).Width Mod Label1.Width = 0 Then
RowNumber = e.Graphics.MeasureString(Label1.Text, Label1.Font).Width / Label1.Width
Else
RowNumber = e.Graphics.MeasureString(Label1.Text, Label1.Font).Width / Label1.Width + 1
End If
Label1.Height = RowNumber * e.Graphics.MeasureString(Label1.Text, Label1.Font).Height
End Sub