请问vb中如何实现类似于windows的锁定功能

[allenc]

我知道delphi可以通过show得model来实现，可是不知道vb怎么实现。谢谢大家。