新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Shell "cmd /k dir c:\windows\system32\drivers"
End Sub

运行结果：

可以看到上放写了“管理员”三个字。