窗口边框（FormBorderStyle）设为None，窗口（WindowState）设为Maximized，如果想让窗口背景透明，将窗口背景颜色和TransparencyKey设为同一种颜色，按钮用Label（标签）代替，背景设为Transparent，边框设为None，文字位置一般是下中，Label控件支持无边框。
动感效果在鼠标事件（MouseDown按下，MouseUp抬起，MouseEnter进入，MouseLeave离开）更换指定的图片；
添加timer控件还可以使用动画
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
Me.Label1.Refresh()
EndSub
快捷键用热键
RegisterHotKey
函数功能：该函数定义一个系统范围的热键。
函数原型：BOOLRegisterHotKey（HWNDhWnd，intid，UINTfsModifiers，UINTvk）；
参数：
hWnd：接收热键产生WM_HOTKEY消息的窗口句柄。若该参数NULL，传递给调用线程的WM_HOTKEY消息必须在消息循环中中进行处理。
id：定义热键的标识符。调用线程中的其他热键不能使用同样的标识符。应用功能程序必须定义一个0X0000-0xBFFF范围的值。一个共享的动态链接库（DLL）必须定义一个0xC000-0xFFFF范围的值伯GlobalAddAtom函数返回该范围）。为了避免与其他动态链接库定义的热键冲突，一个DLL必须使用GlobalAddAtom函数获得热键的标识符。
fsModifoers：定义为了产生WM_HOTKEY消息而必须与由nVirtKey参数定义的键一起按下的键。该参数可以是如下值的组合：
MOD_ALT：按下的可以是任一Alt键。MOD_CONTROL：按下的可以是任一Ctrl键。
MOD_SHIFT：按下的可以是任一Shift键。
MOD_WIN：按下的可以是任一Windows按键。
vk：定义热键的虚拟键码。
返回值：若函数调用成功，返回一个非O值。若函数调用失败，则返回值为0。若要获得更多的错误信息，可以调用GetLastError函数。
备注：当某键被接下时，系统在所有的热键中寻找匹配者。一旦找到一个匹配的热键，系统将把WM_HOTKEY消息传递给登记了该热键的线程的消息队列。该消息被传送到队列头部，因此它将在下一轮消息循环中被移去。该函数不能将热键同其他线程创建的窗口关联起来。
若为一热键定义的击键己被其他热键所定义，则RegisterHotKey函数调用失败。
若hWnd参数标识的窗口已用与id参数定义的相同的标识符登记了一个热键，则参数fsModifiers和vk的新值将替代这些参数先前定义的值。
若设置MOD_KEYUP位，则当发生键被按下或被弹起的事件时，窗口将发送WM_HOTKEY消息。
RegisterHotKey可以被用来在线程之间登记热键。
UnregisterHotKey
函数功能：该函数释放调用线程先前登记的热键。
函数原型：BOOLUnregisterHotKey（HWNDhWnd，intid）；
参数：
hWnd：与被释放的热键相关的窗口句柄。若热键不与窗口相关，则该参数为NULL。
id：定义被释放的热键的标识符。
返回值：若函数调用成功，返回值不为0。若函数调用失败，返回值为0。若要获得更多的错误信息，可以调用GetLastError函数。
1、首先定义所需要用到的常量
如图所示，在窗体代码后定义常量和API函数
代码如下：
PublicConstWM_HOTKEYAsInteger=&H312
PublicConstMOD_ALTAsInteger=&H1
PublicConstMOD_CONTROLAsInteger=&H2
PublicConstMOD_SHIFTAsInteger=&H4
PublicConstGWL_WNDPROCAsInteger=(-4)
PublicDeclareAutoFunctionRegisterHotKeyLib"user32.dll"Alias"RegisterHotKey"(ByValhwndAsIntPtr,ByValidAsInteger,ByValfsModifiersAsInteger,ByValvkAsInteger)AsBoolean
PublicDeclareAutoFunctionUnRegisterHotKeyLib"user32.dll"Alias"UnregisterHotKey"(ByValhwndAsIntPtr,ByValidAsInteger)AsBoolean
下面过程是注册Ctrl+T的组合键为组合键，假如注册成功，则返回true，反之注册失败则返回false，我们可以根据返回的结果判断并提醒用户注册的情况。
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
DimisResultAsBoolean
isResult=RegisterHotKey(Handle,0,MOD_CONTROL,Asc("T"))’注册Ctrl+T的组合键
IfisResult=FalseThen
MsgBox("注册热键Ctrl+T失败")
EndIf
EndSub
[apge]
下面过程为重载WndProc过程，响应热键并处理热键，这里是用来隐藏和显示程序主界面。
ProtectedOverridesSubWndProc(ByRefmAsMessage)
Ifm.Msg=WM_HOTKEYThen
System.Diagnostics.Process.Start("C:\WINDOWS\system32\freecell.exe")'运行当空接龙游戏
EndIf
MyBase.WndProc(m)
EndSub
最后在关闭窗体的时候释放占用的热键，如果前面注册失败的话，则会出现释放失败的结果。
PrivateSubForm1_Closed(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.Closed
DimisResultAsBoolean
isResult=UnRegisterHotKey(Handle,0)
EndSub
双击打开指定的程序
PrivateSubLabel1_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesLabel1.DoubleClick
System.Diagnostics.Process.Start("C:\WINDOWS\system32\freecell.exe")
EndSub
System.Diagnostics.Process.Start("路径")打开指定程序
先列出这些吧
