Dim objtextbox As TextBox = Me.ActiveControl
Select Case toolformat.Buttons.IndexOf(e.Button)
Case 1
objtextbox.Font = New System.Drawing.Font(objtextbox.Font, FontStyle.Bold)
Case 2
objtextbox.Font = New System.Drawing.Font(objtextbox.Font, FontStyle.Italic)
Case 3
objtextbox.Font = New System.Drawing.Font(objtextbox.Font, FontStyle.Underline)
Case 4
objtextbox.Font = New System.Drawing.Font(objtextbox.Font, FontStyle.Regular)