在Visual Basic（VB）中，给文字添加下划线的方法如下：
通过属性设置
可以通过设置控件的`Font`属性中的`Underline`属性为`True`来给文字添加下划线。例如，对于`Label`控件，可以这样做：
```vb
Label1.Font.Underline = True
```
对于`TextBox`控件，可以通过绘制一条线在文本的下面来模拟下划线效果。以下是一个示例代码：
```vb
Private Sub pretextbox（txt As TextBox）
' 去除边框
txt.BorderStyle = 0
' 背景跟窗口同色
txt.BackColor = Me.BackColor
' 画一条线在text的下面
Me.AutoRedraw = True
Me.Line （txt.Left, txt.Top + txt.Height）-（txt.Left + txt.Width, txt.Top + txt.Height）
End Sub
Private Sub form_load（）
' 用的时候这样
pretextbox Text1
End Sub
```
通过菜单编辑器
在VB的菜单编辑器中，选择需要添加横线的菜单项，然后输入一个短横线“-”（减号）。
选中该菜单项，然后在属性窗口中，将“Font”属性中的“Bold”设置为“True”，将“Size”属性设置为适当的字体大小。
通过代码动态生成
可以通过代码动态生成下划线。例如，在`TextBox`控件中，可以通过以下代码在文本下方绘制一条线：
```vb
TextBox1.Text = "Your Text"
TextBox1.Width = 200
TextBox1.Height = 20
TextBox1.Left = 50
TextBox1.Top = 50
TextBox1.AutoRedraw = True
Me.Line （TextBox1.Left, TextBox1.Top + TextBox1.Height）-（TextBox1.Left + TextBox1.Width, TextBox1.Top + TextBox1.Height）
```
这些方法可以帮助你在VB中给文字添加下划线。根据具体需求选择合适的方法即可。