[asemshahen5]

تفضل هذا فيديو يوضح ما تريد عمله .

https://www.youtube.com/watch?v=zkDamGUALF4

و هذا الكود المستخدم :

كود :

Imports System.Management

Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
Dim mclass As New ManagementClass("WmiMonitorBrightnessMethods")
mclass.Scope = New ManagementScope("\\.\root\wmi")
Dim instances As ManagementObjectCollection = mclass.GetInstances()
For Each instance As ManagementObject In instances
Dim timeout As ULong = 1
Dim brightness As UShort = CUShort(TrackBar1.Value * 10)
Dim args As Object() = New Object() {timeout, brightness}
instance.InvokeMethod("WmiSetBrightness", args)
Label4.Text = brightness
Next
End Sub