G
ghost
Greeting,
I have the following code for showing text in textbox as follows:
On Error GoTo 10
TextBox1.SetFocus
10
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox1 = TextBox1 & "" & Chr(10) & "" & Now & " :" & Chr(10) & "" &
Trim(TextBox2)
ElseIf TextBox1 = "" And TextBox2 <> "" Then
TextBox1 = Now & " :" & Chr(10) & "" & Trim(TextBox2)
End If
TextBox2 = ""
TextBox2.SetFocus
What I need is to format the “Now†to be bold and under line, how can I do
that?
I have the following code for showing text in textbox as follows:
On Error GoTo 10
TextBox1.SetFocus
10
If TextBox1 <> "" And TextBox2 <> "" Then
TextBox1 = TextBox1 & "" & Chr(10) & "" & Now & " :" & Chr(10) & "" &
Trim(TextBox2)
ElseIf TextBox1 = "" And TextBox2 <> "" Then
TextBox1 = Now & " :" & Chr(10) & "" & Trim(TextBox2)
End If
TextBox2 = ""
TextBox2.SetFocus
What I need is to format the “Now†to be bold and under line, how can I do
that?