Public Class Form1 Private Sub Form1_Click(sender As Object,e As EventArgs) Handles Me.Click End Sub Private Sub Form1_DoubleClick(sender As Object,e As EventArgs) Handles Me.DoubleClick End Sub Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3.bmp") Me.Text = "相恋时间：2013-5-20" Timer1.Enabled = True End Sub Private Sub Form1_Resize(sender As Object,e As EventArgs) Handles Me.Resize Me.Size = New Size(436 + 10,302 + 30) Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D End Sub Private Sub Timer1_Tick(sender As Object,e As EventArgs) Handles Timer1.Tick Dim p As New Point() p.X = Label1.Location.X p.Y = Label1.Location.Y + 10 Label1.Location = p If Label1.Location.Y >= Me.Height Then p.Y = 0 Label1.Location = p End If End Sub Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click Me.Text = "小萍子" Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3-3.bmp") End Sub Private Sub Button2_Click(sender As Object,e As EventArgs) Handles Button2.Click Me.Text = "小萍子" Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3-4.bmp") Label2.Text = "王庭仙子来" End Sub Private Sub Button3_Click(sender As Object,e As EventArgs) Handles Button3.Click Me.Text = "小萍子" Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3-5.bmp") Label3.Text = "雪中独佳人。" End Sub Private Sub Button4_Click(sender As Object,e As EventArgs) Handles Button4.Click Me.Text = "小萍子" Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3-6.bmp") Label4.Text = "雯女树下立，" End Sub Private Sub Button5_Click(sender As Object,e As EventArgs) Handles Button5.Click Me.Text = "小萍子" Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3-7.bmp") Label5.Text = "我欲语还羞。" End Sub Private Sub Button6_Click(sender As Object,e As EventArgs) End Sub Private Sub Button9_Click(sender As Object,e As EventArgs) Handles Button9.Click Me.Text = "爱情宣言" MsgBox("一生一世！！") End Sub Private Sub Button7_Click(sender As Object,e As EventArgs) Handles Button7.Click Me.Text = "小萍子" Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3-9.bmp") Label6.Text = "爱惜如芝草，" End Sub Private Sub Button8_Click(sender As Object,e As EventArgs) Handles Button8.Click Me.Text = "小萍子" Me.Size = New Size(436 + 10,302 + 30) Me.BackgroundImage = Image.FromFile("Lianxi3-11.bmp") Label7.Text = "你心亦我心。" End Sub Private Sub Button6_Click_1(sender As Object,e As EventArgs) Handles Button6.Click MsgBox(Now.ToString() + "相恋时间：2013-5-20") End Sub End Class 原文链接：https://www.f2er.com/vb/258539.html