Попробуйте
Dim handle As IntPtr = someControl.Handle
Примечание. Это будет работать только после создания дескриптора для элемента управления. Существует промежуток времени между созданием элемента управления и его визуализацией до некоторой степени, когда этот может вернуть IntPtr.Zero