Splitter;- or Separator lines Control

[xxdoc123]

so easy usercontrol .but have a bug .

can set LightColour and DarkColour In the design phase ,but if run .no change

now fixed:

Private Sub UserControl_Resize()
   
   If Horizonthal = True Then
      Line1.X1 = 0
      Line1.X2 = UserControl.Width
      Line1.Y1 = 0
      Line1.Y2 = 0
      
      Line2.X1 = 0
      Line2.X2 = UserControl.Width
      Line2.Y1 = 20
      Line2.Y2 = 20
      UserControl.Height = 40
   ElseIf Horizonthal = False Then
      Line1.X1 = 0
      Line1.X2 = 0
      Line1.Y1 = 0
      Line1.Y2 = UserControl.Height
      
      Line2.X1 = 20
      Line2.X2 = 20
      Line2.Y1 = 0
      Line2.Y2 = UserControl.Height
      UserControl.Width = 40
   End If
   Line2.BorderColor = m_LightColour
    Line1.BorderColor = m_DarkColour
End Sub