Codigo Plus

Descargar Archivo
Titulo	Colocar un formulario encima de la TaskBar
Descripcion	Util codigo para abrir un codigo justo en lo que es la pantalla, sin estropear la TaskBar (barra de Windows), no importa si le cambian eltamaño
Descargas	401
Codigo Fuente
<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> SHAppBarMessage Lib <span style="color: #B22222">"shell32.dll"</span> (<span style="color: #0000FF">ByVal</span> dwMessage <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, pData <span style="color: #0000FF">As</span> APPBARDATA) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> RECT
    Left <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    Top <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    Right <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    Bottom <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Type</span> APPBARDATA
    cbSize <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    hwnd <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    uCallbackMessage <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    uEdge <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
    rc <span style="color: #0000FF">As</span> RECT
    lParam <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Type</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Const</span> ABM_GETTASKBARPOS = &H5

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> Form_Load()
 <span style="color: #0000FF">Dim</span> ABD <span style="color: #0000FF">As</span> APPBARDATA
 SHAppBarMessage ABM_GETTASKBARPOS, ABD
 
 <span style="color: #0000FF">Me</span>.Top = 0
 <span style="color: #0000FF">Me</span>.Left = 0
 
 <span style="color: #0000FF">Me</span>.<span style="color: #0000FF">Width</span> = Screen.<span style="color: #0000FF">Width</span>
 <span style="color: #0000FF">Me</span>.Height = Screen.Height - ((ABD.rc.Bottom - ABD.rc.Top) * Screen.TwipsPerPixelY)
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>