VB 編程

form1裏面的代碼:

 

Public Class Form1

 
    Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
        End
    End Sub

    Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click
        Dim f2 As New Form2
        Me.Hide()
        f2.ShowDialog()
    End Sub

    Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click
        Dim f3 As New Form3
        'Me.Hide()
        f3.ShowDialog()

    End Sub

    Private Sub PictureBox16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox16.Click
        Dim f4 As New Form4
        'Me.Hide()
        f4.ShowDialog()
    End Sub

    Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.Click
        Dim f5 As New Form5
        f5.ShowDialog()
    End Sub

    Private Sub PictureBox17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox17.Click
        Dim f6 As New Form6
        f6.ShowDialog()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Enabled = True
    End Sub

    Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click
        Dim f8 As New Form8
        f8.ShowDialog()
    End Sub

    Private Sub PictureBox15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox15.Click

    End Sub

    Private Sub PictureBox18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox18.Click

    End Sub

    Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.PictureBox1.Top >= Me.Height Then Me.PictureBox1.Top = -Me.PictureBox1.Height
        Me.PictureBox1.Top = Me.PictureBox1.Top + h
        If Me.PictureBox2.Top <= -Me.PictureBox1.Height Then Me.PictureBox2.Top = Me.Height
        Me.PictureBox2.Top = Me.PictureBox2.Top - h
        If Me.PictureBox3.Left >= Me.Width Then Me.PictureBox3.Left = -Me.PictureBox3.Width
        Me.PictureBox3.Left = Me.PictureBox3.Left + w
        If Me.PictureBox4.Left <= -Me.PictureBox3.Width Then Me.PictureBox4.Left = Me.Width
        Me.PictureBox4.Left = Me.PictureBox4.Left - w
        If Me.PictureBox5.Top >= Me.Height Then Me.PictureBox5.Top = -Me.PictureBox1.Height : Me.PictureBox5.Left = 0
        Me.PictureBox5.Left = Me.PictureBox5.Left + w
        Me.PictureBox5.Top = Me.PictureBox5.Top + h
        If Me.PictureBox6.Top >= Me.Height Then Me.PictureBox6.Top = 0 : Me.PictureBox6.Left = Me.Width - Me.PictureBox6.Width
        Me.PictureBox6.Top = Me.PictureBox6.Top + h
        Me.PictureBox6.Left = Me.PictureBox6.Left - w
        If Me.PictureBox7.Left >= Me.Width Then Me.PictureBox7.Left = 0 : Me.PictureBox7.Top = Me.Height
        Me.PictureBox7.Top = Me.PictureBox7.Top - h
        Me.PictureBox7.Left = Me.PictureBox7.Left + w
        If Me.PictureBox8.Top <= 0 Then Me.PictureBox8.Top = Me.Height : Me.PictureBox8.Left = Me.Width
        Me.PictureBox8.Top = Me.PictureBox8.Top - h
        Me.PictureBox8.Left = Me.PictureBox8.Left - w
    End Sub
End Class

 

 

 

 

form2裏面的代碼:

Public Class Form2

    Private Sub AxWindowsMediaPlayer1_ClickEvent(ByVal sender As System.Object, ByVal e As AxWMPLib._WMPOCXEvents_ClickEvent) Handles AxWindowsMediaPlayer1.ClickEvent
        Me.AxWindowsMediaPlayer1.URL = ""
    End Sub

    Private Sub 打開ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打開ToolStripMenuItem.Click
        If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim file1 As String
            file1 = Me.OpenFileDialog1.FileName
            Me.AxWindowsMediaPlayer1.URL = file1
        End If
    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        Me.Close()
        Form1.Show()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'If Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink Then
        'if  me.
    End Sub

    Private Sub 正常模式ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 正常模式ToolStripMenuItem.Click
        Me.AxWindowsMediaPlayer1.fullScreen = False
    End Sub

    Private Sub 全屏ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全屏ToolStripMenuItem.Click
        Me.AxWindowsMediaPlayer1.fullScreen = True
    End Sub
End Class

 

 

 

 

 

 

 

form4裏面的代碼:

 

Public Class Form4
    'Public Static i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "開始（&S）" Then
            Button1.Text = "暫停（&T）"
            Timer1.Enabled = True
        Else
            Button1.Text = "開始（&S）"
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Static i As Integer
        i = i + 1
        Label1.Text = CStr(i)
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Label2.Left > Me.Width Then Me.Label2.Left = 0
        Label2.Left = Me.Label2.Left + 40
        If Label3.Left < 0 Then Me.Label3.Left = Me.Width
        Label3.Left = Me.Label3.Left - 40
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Timer2.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Timer1.Enabled = False
        'Timer2.Enabled = True
        i = 1
        Label1.Text = 1
    End Sub
End Class

 

 

form5裏面的代碼:

Imports System.IO
Public Class Form5
    Dim g_press As Boolean
    Private Sub 剪切ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click
        Me.TextBox1.Cut()
    End Sub

    Private Sub 撤消ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤消ToolStripMenuItem.Click
        g_press = True
        Me.TextBox1.ClearUndo()
    End Sub

    Private Sub 複製ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 複製ToolStripMenuItem.Click
        Me.TextBox1.Copy()
    End Sub

    Private Sub 全選ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全選ToolStripMenuItem.Click
        Me.TextBox1.SelectAll()
    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        Dim bt As Integer
        If TextBox1.Text <> "" Then
            bt = MsgBox("文件　無標題　的文字已經有了改變" & vbCrLf & "要保存該文件嗎？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation + MsgBoxStyle.DefaultButton1, "記事本")
            If bt = 6 Then
                If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Me.SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"
                    Dim swfile As String
                    swfile = Me.SaveFileDialog1.FileName
                    Dim duru As New StreamWriter(swfile, True)
                    duru.Write(TextBox1.Text)
                    duru.Close()
                    TextBox1.Clear()
                End If
            End If
            If bt = 7 Then
                TextBox1.Clear()
            End If
        End If
        'End
        Me.Close()
    End Sub

 

    Private Sub 粘貼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘貼ToolStripMenuItem.Click
        Me.TextBox1.Paste()
    End Sub

    Private Sub 刪除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除ToolStripMenuItem.Click
        Me.TextBox1.SelectedText = ""
    End Sub

    Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建ToolStripMenuItem.Click
        Dim bt As Integer
        If TextBox1.Text <> "" Then
            bt = MsgBox("文件　無標題　的文字已經有了改變" & vbCrLf & "要保存該文件嗎？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation + MsgBoxStyle.DefaultButton1, "記事本")
            If bt = 6 Then
                If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Me.SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"
                    Dim swfile As String
                    swfile = Me.SaveFileDialog1.FileName
                    Dim duru As New StreamWriter(swfile, True)
                    duru.Write(TextBox1.Text)
                    duru.Close()
                    TextBox1.Clear()
                End If
            End If
            If bt = 7 Then
                TextBox1.Clear()
            End If
        End If
    End Sub

    Private Sub 自動換行ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自動換行ToolStripMenuItem.Click
        If 自動換行ToolStripMenuItem.Checked = True Then
            自動換行ToolStripMenuItem.Checked = False
            Me.TextBox1.WordWrap = False
        Else : 自動換行ToolStripMenuItem.Checked = True
            Me.TextBox1.WordWrap = True
        End If
    End Sub

    Private Sub 字體ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字體ToolStripMenuItem.Click
        If Me.FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.TextBox1.Font = Me.FontDialog1.Font
        End If
    End Sub

    Private Sub 左對齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 左對齊ToolStripMenuItem.Click
        Me.TextBox1.TextAlign = HorizontalAlignment.Left
    End Sub

    Private Sub 右對齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 右對齊ToolStripMenuItem.Click
        Me.TextBox1.TextAlign = HorizontalAlignment.Right
    End Sub

    Private Sub 居中對齊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 居中對齊ToolStripMenuItem.Click
        Me.TextBox1.TextAlign = HorizontalAlignment.Center
    End Sub

  
    Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
        Dim bt As Integer
        If TextBox1.Text <> "" Then
            'bt = MsgBox("文件　無標題　的文字已經有了改變" & vbCrLf & "要保存該文件嗎？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation + MsgBoxStyle.DefaultButton1, "記事本")
            'If bt = 6 Then
            If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                Me.SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"
                Dim swfile As String
                swfile = Me.SaveFileDialog1.FileName
                Dim duru As New StreamWriter(swfile, True)
                duru.Write(TextBox1.Text)
                duru.Close()
                TextBox1.Clear()
            End If
        End If
        'If bt = 7 Then
        '    TextBox1.Clear()
        'End If
        'End If
        '' '' '' ''If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        '' '' '' ''    Dim swfile As String
        '' '' '' ''    swfile = Me.SaveFileDialog1.FileName
        '' '' '' ''    Dim duru As New StreamWriter(swfile, True)
        '' '' '' ''    duru.Write(TextBox1.Text)
        '' '' '' ''    duru.Close()
        '' '' '' ''End If
    End Sub

    Private Sub 另存爲ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 另存爲ToolStripMenuItem.Click
        '' '' '' '' ''If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        '' '' '' '' ''    Dim swfile As String
        '' '' '' '' ''    swfile = Me.SaveFileDialog1.FileName
        '' '' '' '' ''    Dim duru As New StreamWriter(swfile, True)
        '' '' '' '' ''    duru.Write(TextBox1.Text)
        '' '' '' '' ''    duru.Close()
        '' '' '' '' ''End If
        'Dim bt As Integer
        'If TextBox1.Text <> "" Then
        '    bt = MsgBox("文件　無標題　的文字已經有了改變" & vbCrLf & "要保存該文件嗎？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Critical + MsgBoxStyle.DefaultButton1, "記事本")
        '    If bt = 6 Then
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"
            Dim swfile As String
            swfile = Me.SaveFileDialog1.FileName
            Dim duru As New StreamWriter(swfile, True)
            duru.Write(TextBox1.Text)
            duru.Close()
            TextBox1.Clear()
        End If
        'End If
        'If bt = 7 Then
        '    TextBox1.Clear()
        'End If
        'End If
    End Sub

 

    Private Sub 打開ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打開ToolStripMenuItem.Click
        Dim bt As Integer
        If TextBox1.Text <> "" Then
            bt = MsgBox("文件　無標題　的文字已經有了改變" & vbCrLf & "要保存該文件嗎？", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation + MsgBoxStyle.DefaultButton1, "記事本")
            If bt = 2 Then Exit Sub
            If bt = 6 Then
                If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Me.SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"
                    Dim swfile As String
                    swfile = Me.SaveFileDialog1.FileName
                    Dim duru As New StreamWriter(swfile, True)
                    duru.Write(TextBox1.Text)
                    duru.Close()
                    TextBox1.Clear()
                End If
            End If
            If bt = 7 Then
                TextBox1.Clear()
            End If
            'Dim pathname, str As String
            'Me.OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"
            'If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            '    pathname = Me.OpenFileDialog1.FileName
            '    Dim srfile As StreamReader
            '    srfile = File.OpenText(pathname)
            '    TextBox1.Text = srfile.ReadToEnd()
            '    srfile.Close()
            'End If
            ''if
            Dim du As StreamReader
        End If
        Dim pathname, str As String
        Me.OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"
        If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            pathname = Me.OpenFileDialog1.FileName
            Dim srfile As StreamReader
            srfile = File.OpenText(pathname)
            TextBox1.Text = srfile.ReadToEnd()
            srfile.Close()
        End If
        'if
    End Sub

    Private Sub 左對齊ToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 左對齊ToolStripMenuItem.Click

    End Sub

    Private Sub 時間日期ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 時間日期ToolStripMenuItem.Click
        TextBox1.Text = Now

    End Sub

    Private Sub 字體色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字體色ToolStripMenuItem.Click
        If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.ForeColor = Me.ColorDialog1.Color
        End If
    End Sub

    Private Sub 背景色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 背景色ToolStripMenuItem.Click
        If Me.ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.BackColor = Me.ColorDialog1.Color
        End If
    End Sub

    Private Sub 關於記事本ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 關於記事本ToolStripMenuItem.Click
        Dim f7 As New Form7
        f7.ShowDialog()
    End Sub

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        狀態欄ToolStripMenuItem.Enabled = False
        幫助主題ToolStripMenuItem.Enabled = False
        查找ToolStripMenuItem.Enabled = False
        替換ToolStripMenuItem.Enabled = False
    End Sub
End Class

 

 

 

 

form6裏面的代碼:

Public Class Form6

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'If Me.Timer1.Enabled = False Then
        '    Timer1.Enabled = True
        '    Button1.Text = "中止"
        'Else
        '    Button1.Text = "開始"
        '    Timer1.Enabled = False
        'End If
        Me.Timer1.Enabled = True
    End Sub

    Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            Me.ComboBox1.Items.Add(Me.ComboBox1.Text)
            Me.ComboBox1.Text = ""
            TextBox1.Text = Me.ComboBox1.Items.Count
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim shul, geshu As Integer
        Randomize()
        geshu = Me.ComboBox1.Items.Count
        shul = Int(Rnd() * geshu)
        Me.ComboBox1.SelectedIndex = shul
        Me.ComboBox1.Text = Me.ComboBox1.SelectedItem
        Label4.Text = Me.ComboBox1.SelectedItem
    End Sub

    'Private Sub ComboBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
    '    If e.KeyCode = Keys.Enter Then
    '        Me.ComboBox1.Items.Add(Me.ComboBox1.Text)
    '        Me.ComboBox1.Text = ""
    '        TextBox1.Text = Me.ComboBox1.Items.Count
    '    End If
    'End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Timer1.Enabled = False
        Label4.Visible = False
        Me.Timer2.Enabled = True
    End Sub

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Enabled = False
        Me.Timer2.Enabled = False
        Label5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim xiansuo As Integer
        xiansuo = xiansuo + 1
        If xiansuo = 10 Then Exit Sub
        If Label4.Visible = True Then
            Label4.Visible = False
        Else : Label4.Visible = True
        End If
        If Label5.Visible = True Then
            Label5.Visible = False
        Else : Label5.Visible = True
        End If
        If Label6.Visible = True Then
            Label6.Visible = False
        Else : Label6.Visible = True
        End If
        If Label7.Visible = True Then
            Label7.Visible = False
        Else : Label7.Visible = True
        End If
    End Sub
End Class

 

 

 

 

 

form7裏面的代碼:

Public Class Form7

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

 

 

 

 

Public Class Form8
    Dim in1, in2, in3, in4, in5, in6, in7, in8, in9, in10 As String
    'dim
    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("待你進入了頁面，" & vbCrLf & "請你不要再上面" & vbCrLf & "胡亂畫，信不信由你！")
        in1 = InputBox("請輸入你的初戀情人的名字", "科學擇偶", "初戀的情人")
        in2 = InputBox("請輸入你想唱給他／她的一首歌", "科學擇偶", "歌曲名")
        in3 = InputBox("請輸入你的如今情人的名字", "科學擇偶", "如今的情人")
        in4 = InputBox("請輸入你想唱給他／她的一首歌", "科學擇偶", "歌曲名")
        in5 = InputBox("請輸入一首你最喜歡的歌曲", "科學擇偶", "歌曲的名字")
        in6 = InputBox("請輸入你最好的朋友的名字", "科學擇偶", "最好朋友的名字")
        in7 = InputBox("請再輸入一個你的好朋友的名字", "科學擇偶", "好朋友的名字")
        in8 = InputBox("請再輸入一個你的好朋友的名字", "科學擇偶", "好朋友的名字")
        in9 = InputBox("請輸入你的心願", "科學擇偶", "你的心願")
        in10 = "　　你的初戀情人" & in1 & "並非你明智的選擇，雖然你很執着，但天已經註定大家此生不可能在一塊兒。《" & in2 & "》這首歌曲就足夠表達你的苦衷。你當是必定會很迷茫，但最後你終於又遇到了" & in3 & "，你如今很愛她，這首《" & in4 & "》足以表達你對他/她的愛。" _
        & "你的愛情觀很特別，只一首《" & in5 & "》就能夠看出。" & in6 & "是你最可靠的朋友，在戀愛上也許比你更成熟些。你能夠常常問問他、" & in7 & "或者是" & in8 & "。只要你努力抓住沒一個可能的機會，你的願望——" & in9 & "——必定能夠實現的！" & vbCrLf & "　　祝你好運！！！"
        Label1.Text = in10

    End Sub End Class