Private Sub Göster_Click() yol = "SYSTEM\CurrentControlSet\Services\" yol1 = "Start" ser0 = "Alerter" ser1 = "ALG" ser2 = "AppMgmt" ser3 = "ClipSrv" ser4 = "EventSystem" ser5 = "COMSysApp" For sayac1 = 0 To 5 Controls("metin" & sayac1) = BuyukDegerAl(HLM, yol & "ser" & sayac1, yol1) Next sayac1 End Sub