Public Class Form1
    ReadOnly tlpForm As New TableLayoutPanel
    ReadOnly lblSetup As New Label
    ReadOnly prgSetup As New ProgressBar
    ReadOnly timerPrg As New Timer


    Private Sub Form1_Load() Handles MyBase.Load
        With Me
            .Text = "Google Chrome 安装程式"
            .Size = New Size(466, 168)
            .Font = New Font("Tahoma", 8.25!)
            .FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
            .MaximizeBox = False
            .Controls.Add(tlpForm)
        End With


        With tlpForm
            .Location = New Point(-4, -1)
            .Size = Me.ClientSize
            .ColumnCount = 1
            .ColumnStyles.Add(New ColumnStyle(SizeType.AutoSize, 0.0!))
            .RowCount = 2
            .RowStyles.Add(New RowStyle(SizeType.Percent, 40.0!))
            .RowStyles.Add(New RowStyle(SizeType.Percent, 60.0!))
            .Controls.Add(lblSetup, 0, 0)
            .Controls.Add(prgSetup, 0, 1)
        End With


        With lblSetup
            .AutoSize = True
            .Text = "正在安装 Google Chrome..."
            .Margin = New Padding(12)
        End With


        With prgSetup
            ' Marquee or Continuous
            .Style = ProgressBarStyle.Marquee
            .Size = New Size(0, 16)
            .MarqueeAnimationSpeed = 25
            .Anchor = AnchorStyles.Left Or AnchorStyles.Right Or
                AnchorStyles.Top
            .Margin = New Padding(15, 8, 6, 0)
        End With


        With timerPrg
            .Interval = 25
            .Enabled = True
        End With


        AddHandler timerPrg.Tick, AddressOf TimerPrg_Tick
    End Sub


    Private Sub TimerPrg_Tick()
        If prgSetup.Value = 100 Then prgSetup.Value = 0
        prgSetup.Value += 1
    End Sub


End Class