在VB（Visual Basic）中，你可以使用Windows API函数`SetWindowPos`来使一个窗口置顶。以下是一个简单的示例，展示了如何在VB6.0及更高版本的Windows XP SP2中实现这一功能：
声明API函数
```vb
Private Declare Function SetWindowPos Lib "user32" （ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long） As Long
```
定义置顶和取消置顶的函数
```vb
Public Sub TopForm（hwnd As Long, bTop As Boolean）
If IsWindow（hwnd） = False Then Exit Sub
If bTop Then
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub
```
在窗体上添加按钮并绑定事件
添加两个按钮，分别用于置顶和取消置顶。
为这两个按钮分别绑定`Command1_Click`和`Command2_Click`事件处理程序，调用`TopForm`函数。
```vb
Option Explicit
Private Declare Function SetWindowPos Lib "user32" （ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long） As Long
Public Sub TopForm（hwnd As Long, bTop As Boolean）
If IsWindow（hwnd） = False Then Exit Sub
If bTop Then
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub
Private Sub Command1_Click（）
TopForm Me.hWnd, True
End Sub
Private Sub Command2_Click（）
TopForm Me.hWnd, False
End Sub
```
建议
错误处理：在实际应用中，建议添加错误处理机制，以处理窗口句柄无效或其他潜在问题。
窗口句柄：确保传递给`TopForm`函数的窗口句柄是有效的。
兼容性：`SetWindowPos`函数在Windows XP SP2及更高版本的Windows中有效，如果在其他版本的Windows中运行，可能需要额外的兼容性检查。