Microsoft Multipoint SDK not registering (VB.NET)

80 views Asked by At

All the Microsoft tutorials are in C#, but I'm usually pretty good at converting between. However, I cannot solve this for the life of me. How do I convert Multipointsdk.Instance.Register(this); into VB.NET? My first shot was MultipointSdk.Instance.Register(Me) but it won't let me cast "Me" to a Window type. Code below:

            Imports System.Runtime.InteropServices
            Imports Microsoft.Multipoint.Sdk

            Public Class Form1

                Private InitialStyle As Integer
                Dim PercentVisible As Decimal

                Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
                    InitialStyle = GetWindowLong(Me.Handle, -20)
                    PercentVisible = 0.8

                    SetWindowLong(Me.Handle, -20, InitialStyle Or &H80000 Or &H20)

                    SetLayeredWindowAttributes(Me.Handle, 0, 255 * PercentVisible, &H2)

                    Me.BackColor = Color.Red
                    Me.TopMost = True
                    MultipointSdk.Instance.Register(Me)
                End Sub

                <DllImport("user32.dll", EntryPoint:="GetWindowLong")> Public Shared Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer
                End Function

                <DllImport("user32.dll", EntryPoint:="SetWindowLong")> Public Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
                End Function

                <DllImport("user32.dll", EntryPoint:="SetLayeredWindowAttributes")> Public Shared Function SetLayeredWindowAttributes(ByVal hWnd As IntPtr, ByVal crKey As Integer, ByVal alpha As Byte, ByVal dwFlags As Integer) As Boolean
                End Function

            End Class
0

There are 0 answers