Private Sub Detail_Format(ByVal sender As Object, ByVal e As System.EventArgs) Handles Detail.Format
Dim b As New GrapeCity.ActiveReports.Border
Me.TextBox1.Border.BottomStyle = BorderLineStyle.DashDot
Me.TextBox1.Border.TopStyle = BorderLineStyle.DashDot
b = Me.TextBox1.Border.Clone()
Me.TextBox2.Border.BottomStyle = b.BottomStyle
Me.TextBox2.Border.TopStyle = b.TopStyle
End Sub