Label and space and textbox complex time

[fikret]

Hiiii
I wrote a companent but I'm having trouble with space label1 can change every time i have to play with space settings how do you think you can do more effortless

....
    a = Label1.Width
    b = m_bosluk
    c = UserControl.Width
    d = UserControl.Height
    e = Shape1.Width
 
With Label1
        If a + b + 30 > c Then c = a + b + 50
            .Move 20, 20
            If m_multilin = True Then   'if multiline then text2 else text1 show
                Text2.Move a + b, 20, c - (a + b) - 30, d - 40
                Shape1.Move a + b, 0, c - (a + b), d
                Text1.Visible = False
                Text2.Visible = True
            Else
                Text1.Move a + b, 20, c - (a + b) - 30, d - 40
                Shape1.Move a + b, 0, c - (a + b), d
                If UserControl.Width < (e + a + b) Then
                    Text1.Width = c - (a + b) - 40
                    Shape1.Width = c - (a + b)
                End If
                Text1.Visible = True
                Text2.Visible = False
            End If
.....
End With
....

this code free of problems works but as i said label and textbox added(as attached pictures) the gap between i have to manually enter

How do I solve the problem of this gap?