[VB.NET] Creare estensione del Pannello di Controllo

[chibi89]

Giorno a tuttiavrei bisogno di un piccolo aiutino su questo codice, che mi dovrebbe restituire un collegamento al pannello di controllo

 Option Explicit
Private strPanelName As String
Private Sub Command1_Click()
    strPanelName = File1.filename
    If strPanelName = "" Then
        MsgBox "A .CPL file was not selected." & vbCrLf & _
        "The Windows Control Panel will be opened.",vbInformation
    End If
    Shell "rundll32.exe shell32.dll,Control_RunDLL " & _ 
             strPanelName, vbNormalFocus
End Sub
Private Sub Form_Load()
    With File1
        'Display Control Panel Extension files only:
        .Pattern = "*.CPL"
        'Point the FileListBox to the System or System32 dir:
        .filename = "C:\Windows\System"
    End With
End Sub

ma mi errore nelle espressioni che contengono la parole File1 "File1 non dichiarato"
come posso fare per aggirare questo problema