map problem URGENT

[_visual_basic_]

hey folks

i have some problems with my map. using dx to draw it inside a window.
but whenever i put a form over my map the map draws over a form

i have search the forums and i came up with this code:

Private Sub Display_Paint()
    If StrMatch(ActiveControl.Name, Display.Name) Then
        Call DrawMap(Map) 'drawmap works perfectly
    End If
End Sub

Public Function StrMatch(Str1 As String, Str2 As String) As Boolean
    If LenB(Str1) = LenB(Str2) Then
        If InStr(1, Str1, Str2, vbTextCompare) Then
            Let StrMatch = True
        End If
    End If
End Function

and it dint work

here is the screenshot: