
Private Function TextUpdate(ByVal MyRTB As RichTextBox, _
ByVal MyBold As Boolean, ByVal MyItal As Boolean, _
ByVal MyUnd As Boolean, ByVal MyFontSize As Integer) _
As RichTextBox
Dim MyStyle As FontStyle
MyStyle = 0
If MyBold = True Then
MyStyle = MyStyle + FontStyle.Bold
End If
If MyItal = True Then
MyStyle = MyStyle + FontStyle.Italic
End If
If MyUnd = True Then
MyStyle = MyStyle + FontStyle.Underline
End If
MyRTB.Font = New Font("Tahoma", MyFontSize, MyStyle)
TextUpdate = MyRTB
End Function

autopilot wrote:chike... get the spoons... i got the gerber...

Return to Visual Basic Programming
Users browsing this forum: No registered users and 0 guests