打开Visual Studio 2008在文件 (File) 菜单上，单击新建项目 (New Project)。在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序(Windows Application)。 单击确定 (OK)

窗体应用技巧一，创建浮动窗体。

创建新工程后，选择Form1窗体，添加 Timer1和Timer2控件。为窗体选择一个好看的背景，当然你也可以使用系统默认的背景。

进入代 码编辑器，输入代码：

Public　Class　Form1

Inherits　 System.Windows.Forms.Form

Private　Sub　Form1_Load(ByVal　sender　As　 System.Object,

ByVal　e　As　System.EventArgs)　Handles　MyBase.Load

Dim　 pos　As　Point　=　New　Point(100,　50)　'设置窗体初始位置

Me.DesktopLocation　=　 pos

Timer1.Interval　=　10　'设置Timer的值

Timer1.Enabled　=　True

Timer2.Interval　=　10

Timer2.Enabled　=　False

End　Sub

进入Timer1_Tick事件

Private　Sub　Timer1_Tick(ByVal　sender　As　System.Object,　 ByVal　e　As　System.EventArgs)

Handles　Timer1.Tick

Dim　pos　As　Point　= 　New　Point(Me.DesktopLocation.X　+　2,　Me.DesktopLocation.Y　+　1)

'窗体 左上方横坐标的timer1加

If　pos.X　<　600　Or　pos.Y　<　400　Then

Me.DesktopLocation　=　pos

Else

Timer1.Enabled　=　False

Timer2.Enabled　= 　True

End　If

End　Sub

进入Timer2_Tick事件

Private　Sub 　Timer2_Tick(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)

Handles　Timer2.Tick

Dim　pos　As　Point　=　New　Point(Me.DesktopLocation.X　-　2, 　Me.DesktopLocation.Y　-　1)

'窗体的左上方横坐标随着timer2减一

If　 pos.X　>　100　Or　pos.Y　>　50　Then

Me.DesktopLocation　=　pos

Else

Timer1.Enabled　=　True

Timer2.Enabled　=　False

End　If

End　 Sub

创建完成后我们来运行程序测试一下，测试成功，程序在屏幕中不断地来回走动了。

更多信息请查看IT技术专栏