一个简单的vb相册程序（女女过生日时送她）

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