在VB（Visual Basic）中，要计算tan的负一次方，即计算cotangent（余切）函数，你可以使用Math.Tan方法，并传入一个角度值。由于tan（θ） = sin（θ） / cos（θ），而cot（θ） = 1 / tan（θ） = cos（θ） / sin（θ），因此cot（θ） = 1 / tan（θ）。在VB中，你可以直接使用1 / Math.Tan（θ）来计算cot（θ）。
```vb
Module Module1
Sub Main()
' 定义角度θ
Dim theta As Double = Math.PI / 4 ' 45度
' 计算cot(θ)
Dim cotValue As Double = 1 / Math.Tan(theta)
' 输出结果
Console.WriteLine("cot(" & theta & ") = " & cotValue)
End Sub
End Module
```
在这个例子中，我们定义了角度θ为45度（π/4弧度），然后计算了cot（45°）的值，并将结果输出到控制台。
如果你想要在图形界面上显示tan（θ）的负一次方的图像，你可以使用VB的图形库，如GDI+或WPF，来绘制函数图像。在上面的DrawTan函数示例中，我们使用了一个简单的循环来绘制tan（θ）的图像，通过改变x的值来计算对应的y值，即tan（x）的值。要绘制cot（θ）的图像，你可以在循环中计算cot（x）的值，而不是tan（x）的值。
请注意，VB中的Math.Tan方法接受的是弧度值，而不是角度值。如果你有一个角度值，你需要先将其转换为弧度值，可以使用Math.PI乘以角度值再除以180来实现转换。