[351028]

PHP كود :

Public Class Form1

    Dim AA As Integer = 200
    Dim BB As Integer = 100

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim MyTrackBar As New TrackBar
        MyTrackBar.Dock = DockStyle.Bottom
        MyTrackBar.Minimum = 10
        MyTrackBar.Maximum = 190
        MyTrackBar.Value = 100
        AddHandler MyTrackBar.Scroll, AddressOf MyTrackBar_Scroll
        Me.Controls.Add(MyTrackBar)
        Me.Text = MyTrackBar.Value & "%"
    End Sub

    Private Sub MyTrackBar_Scroll(sender As Object, e As EventArgs)
        Panel1.Width = AA * (sender.Value / 100)
        Panel1.Height = BB * (sender.Value / 100)
        Me.Text = sender.Value & "%"
    End Sub

End Class