Private Declare Function WindowFromDC Lib "user32" (ByVal hdc As Long) As Long Private Sub Form_Load() Me.Show MsgBox CStr(WindowFromDC(Me.hdc)) + vbCrLf + CStr(Me.hWnd) End Sub