How do i disable edge gestures in windows 8.1 on a dell tablet ? i need to lock down my full screen app.

Question

This is my current code. I am using window property PKEY_EdgeGesture_DisableTouchWhenFullscreen, but when i run it on dell venue 8 tablet running win8.1, i always get same error from SHGetPropertyStoreForWindow :
Err = 0x80004002    E_NOINTERFACE    No such interface supported
    Structure PROPERTYKEY
        Dim fmtid As Guid
        Dim pid As UInt32
    End Structure
    Private Interface IPropertyStore
        Sub GetCount(ByRef cProps As UInt32)
        Sub GetAt(ByVal iProp As UInt32, ByRef pkey As PROPERTYKEY)
        Sub GetValue(ByRef key As PROPERTYKEY, ByVal pv As Object)
        Sub SetValue(ByRef key As PROPERTYKEY, ByRef pv As Object)
        Sub Commit()
    End Interface
    Public Class PropertyStore
        Implements IPropertyStore
        Public Sub Commit() Implements IPropertyStore.Commit
        End Sub
        Public Sub GetAt(ByVal iProp As UInteger, ByRef pkey As PROPERTYKEY) Implements IPropertyStore.GetAt
        End Sub
        Public Sub GetCount(ByRef cProps As UInteger) Implements IPropertyStore.GetCount
        End Sub
        Public Sub GetValue(ByRef key As PROPERTYKEY, ByVal pv As Object) Implements IPropertyStore.GetValue
        End Sub
        Public Sub SetValue(ByRef key As PROPERTYKEY, ByRef pv As Object) Implements IPropertyStore.SetValue
        End Sub
    End Class
    <DllImport("shell32.dll", SetLastError:=True)> _
    Private Function SHGetPropertyStoreForWindow(ByVal handle As IntPtr, ByRef riid As Guid, ByRef propertyStore As IPropertyStore) As UInt32
    End Function
        '    ' 20140804 support disable of edge swipes when run fullscreen in windows 8
   ' name = System.EdgeGesture.DisableTouchWhenFullscreen
   ' shellPKey = PKEY_EdgeGesture_DisableTouchWhenFullscreen
   ' formatID = 32CE38B2-2C9A-41B1-9BC5-B3784394AA44
        Dim g As Guid = New Guid("32CE38B2-2C9A-41B1-9BC5-B3784394AA44")
        Dim PropStore As IPropertyStore = New PropertyStore
        Dim rc As UInt32 = SHGetPropertyStoreForWindow(HWnd, g, PropStore)
        ' 0x80004002    E_NOINTERFACE    No such interface supported
        ' S_OK    Operation successful    0x00000000
        If (rc = 0) Then
            Dim PKEY_EdgeGesture_DisableTouchWhenFullscreen As PROPERTYKEY
            PKEY_EdgeGesture_DisableTouchWhenFullscreen.fmtid = New Guid("32CE38B2-2C9A-41B1-9BC5-B3784394AA44")
            PKEY_EdgeGesture_DisableTouchWhenFullscreen.pid = 2
            Dim bVal As Boolean = True
            PropStore.SetValue(PKEY_EdgeGesture_DisableTouchWhenFullscreen, bVal)
        End If

Answer 1

You are passing PKEY_EdgeGesture_DisableTouchWhenFullscreen where it expects IID_IPropertyStore. 
Visual C++ MVP