Private Sub [I]LabelName[/I]_Click()
Const Fpath = "C:\Folder\subFolder[COLOR=#ff0000]\[/COLOR]" [I]'end string with [COLOR=#ff0000]path separator[/COLOR][/I]
Dim fName As String
fName = [I]LabelName[/I].Caption
Shell ("RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & Fpath & fName)
End Sub