在VB（Visual Basic）中，你可以通過(guò)設(shè)置畫(huà)筆（Pen）對(duì)象的`Width`屬性來(lái)調(diào)整畫(huà)筆的粗細(xì)。以下是如何在VB中創(chuàng)建一個(gè)控件來(lái)調(diào)整畫(huà)筆粗細(xì)的示例：

1. 創(chuàng)建一個(gè)新的VB窗體應(yīng)用程序。

2. 在窗體上添加一個(gè)TrackBar控件，這將用于調(diào)整畫(huà)筆粗細(xì)。

3. 在窗體上添加一個(gè)PictureBox控件，用于顯示畫(huà)筆的效果。

4. 編寫(xiě)代碼來(lái)處理TrackBar的值改變事件，并更新PictureBox上的畫(huà)筆粗細(xì)。

以下是具體的代碼示例：

```vb

Public Class MainForm

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' 初始化畫(huà)筆

Dim myPen As New Pen(Color.Black)

PictureBox1.Paint += AddressOf PictureBox1_Paint

End Sub

Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll

' 更新畫(huà)筆粗細(xì)

Dim myPen As Pen = New Pen(Color.Black, TrackBar1.Value)

' 保存畫(huà)筆，以便下次使用

myPen.Dispose()

End Sub

Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint

' 繪制畫(huà)筆粗細(xì)的示例

Dim myPen As Pen = New Pen(Color.Black, TrackBar1.Value)

e.Graphics.DrawLine(myPen, 10, 10, 100, 100)

myPen.Dispose()

End Sub

End Class

```

在這個(gè)示例中：

`TrackBar1` 是用來(lái)調(diào)整畫(huà)筆粗細(xì)的TrackBar控件。

`PictureBox1` 是用來(lái)顯示畫(huà)筆效果的PictureBox控件。

`TrackBar1_Scroll` 事件處理程序會(huì)在TrackBar的值改變時(shí)觸發(fā)，并創(chuàng)建一個(gè)新的畫(huà)筆對(duì)象，其粗細(xì)與TrackBar的值相匹配。

`PictureBox1_Paint` 事件處理程序會(huì)在PictureBox被重新繪制時(shí)觸發(fā)，并使用當(dāng)前粗細(xì)的畫(huà)筆繪制一條線。

請(qǐng)根據(jù)你的實(shí)際應(yīng)用程序調(diào)整控件名稱和屬性。