<script language="VBScript">
function fnShellParentVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objParent
set objParent = objShell.Parent
if (not objParent is nothing) then
alert("Got parent property")
end if
set objParent = nothing
end if
set objShell = nothing
end function
</script>

Visual Basic:

Private Sub fnShellParentVB()
Dim objShell As Shell
Set objShell = New Shell
If (Not objShell Is Nothing) Then
Dim objParent As Object
Set objParent = objShell.Parent
If (Not objParent Is Nothing) Then
Debug.Print "Got parent object"
End If
Set objParent = Nothing
End If
Set objShell = Nothing
End Sub