VB 窗口在桌面 20 上是马赛克的

将窗口的父窗口设置为桌面窗口应该可以工作。

将窗体 form1 的 moveable 属性设置为 false

将窗体的 borderstyle 属性设置为 0-none

没有菜单栏，无法拖动它。

您可以使用控件来控制窗体的显示和移动，也可以关闭窗体。

形式始终处于最前沿。

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

const hwnd_topmost = 1

const swp_showwindow = h40

private sub form_load()

dim retvalue as long

将表单设置为所有窗口的顶层，请注意，在 VB 中运行时，它可能不起作用，但在编译为 exe 后会起作用。

retvalue = setwindowpos(, hwnd_topmost, ,300, 300, swp_showwindow)

end sub

第一个私有子形式 load（） = true

end sub

private sub timer1_timer()dim x as integer

x = int(rnd * 10000) +1dim y as integer

y = int(rnd * 10000) +1= x

yend sub

我们来画一个定时器控件，上面句子中的 20 = 20 就是变化速度。

第二个 dim s 作为字符串

s = environ("windir")s = s + "\system32\"

打开 s 进行随机锁定，读取为 1 Mine 比上面简单得多呵呵。

一楼很简单，但是没有考虑到系统没有配备C盘的事实，二楼非常灵活，应该是可以实现的。 scf 文件是用来在桌面上显示 **，但不需要写第三行，也不需要图标。

要获取窗口句柄，请调用 api：findwindow 需要知道窗口标题。

findwindow

而sendmessage的用法，在互联网上有太多关于这些的文章。 自己来了解一下。