form1.vb

SSD4中EXERCISE4

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Line1 As New System.Windows.Forms.Label
        Line1.Location = New System.Drawing.Point(0, Me.Height / 5)
        Line1.Size = New System.Drawing.Size(Me.Width, 1)
        Line1.BackColor = System.Drawing.Color.Black
        Controls.Add(Line1)
        lblDate.Text = "Today's date is: " + Date.Today
        lblDate.Left = Me.Width / 2 - lblDate.Width / 2
        Label2.Text = "Time Zone"
        Label2.Left = Me.Width / 2 - Label2.Width / 2


    End Sub
End Class