SetWindowPos? en Cualquier control?

[NsTeam]

Bueno Hola a todos

tengo una duda en la cual quisiera que me ayuden un poko en esto xD

Bueno tengo entendido q SetWindowPos es para que el Form este siempre visible


ahora mi pregunta es   Como aria para que un boton o un label o talves un texbox

este siempre visible

me explico con imagenes =)








Espero Que me ayan entendido

Gracias de antemano

[Dessa]

Código [Seleccionar] Expandir



Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()

  Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1)

' todas estas propiedades en diseño
If Me.BorderStyle <> 0 Then MsgBox "FORM SIN BORDES EN DISEÑO": End
Command1.Left = 0
Command1.Top = 0
Me.Height = Command1.Height
Me.Width = Command1.Width

End Sub


Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
MsgBox "CODIGO"
End If
If Button = 2 Then
End
End If

End Sub



S2

[NsTeam]

Man probe tu Code

PEro lo que me mando en si fue un msgbox

con un mensaje diciendo

FORM SIN BORDES EN DISEÑO

Hice algo Mal!!

o Si podrias explikarme Como Funciona el code =)

[Dessa]

En cuanto pongas la propiedad del formulario BorderStyle en "0" (cero) no te aparece mas el mensaje

En diseño (antes de ejecutar el code)

S2

[NsTeam]

Xvr

ya entiendo

gracias por el Code =)