add scrollbars to text box

This commit is contained in:
Jonathan Jenne 2022-08-11 13:21:37 +02:00
parent b7b137e690
commit d206c30ad8

View File

@ -287,6 +287,7 @@ Public Class ClassControlCreator
control.ReadOnly = oControlRow.Item("READ_ONLY")
control.TabStop = Not oControlRow.Item("READ_ONLY")
control.BackColor = IIf(oControlRow.Item("READ_ONLY"), Color.LightGray, Color.White)
control.ScrollBars = ScrollBars.Vertical
Else
control.ReadOnly = True
End If