能否给我几个有创意的VB程序？

说明控件，谢谢。我是新手！程序要有创意，谢谢大家！

该程序需要一处命令按钮,即button,其caption为"重新定义鼠标位置",具体的代码如下所示：Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPrivate Sub Command1_Click()
SetCursorPos Rnd * 1000, Rnd * 1000

End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Cls
Print "鼠标的当前位置 " & x, y

End SubPrivate Sub Form_Resize()
On Error Resume Next
Command1.Move Me.ScaleWidth - Command1.Width - 300, Me.ScaleHeight - Command1.Height - 300
End Sub
功能：通过单击按钮，随机产生两个随机数来做为鼠标在屏幕上的位置。记得加分哦，楼主！

才10分哈，鸣```给你个思路吧，我也不指着你给我分了，大一的水平，不是大三的水平，这并不重要，大家学到的东西差不多，不过运用的程度却不一样，试着多用点自己学到的，会做出精彩的，比如多用点for一类的，看看自己的成果，mid多窗体，搞个登陆界面，用if来判定。如果有条件自己查查api，试着连接access。祝你成功