Option Explicit
Private strPanelAdi As String

'___________________________________

Private Sub Command1_Click()
strPanelAdi = File1.filename

If strPanelAdi = "" Then
MsgBox "Bir .CPL dosyasi seçilmedi." & vbCrLf & _
"Windows Control Panel açiliyor.",vbInformation

End If

Shell "rundll32.exe shell32.dll,Control_RunDLL " & _
strPanelAdi, vbNormalFocus
End Sub

'____________________________________

Private Sub Form_Load()
With File1
'Sadece Control Panel uzantili dosyalari göster
.Pattern = "*.CPL"
'FileListBox yalnizca System yada System32 dizinini hedef alsin:
.Filename = "C:\Windows\System"

End With
End Sub

anlamadım ama Sağol. paylasımın için

paylaşım için teşekkürler..

PayLa$tıqın İçİn teşekkürler'ler  .

paylaşımın için Sağol.

paylaşım için saqol

Teşekkürler...

teşekkürler...