archi
02 de Diciembre del 2003

quiero sabe como hacer para poner digamos una imagen sobre mi formulario, y que por medio de esta imagen, poder mover mi formulario en sustitucion de la barra de titulo de la ventana. o si es posible que se pueda cambiar el color de la barra de titulo de la ventana de mi aplicacion.

Juan
02 de Diciembre del 2003

Te pongo un ejemplo para mover un formulario con
un control. El ejemplo está hecho con un picturebox
pero debería funcionar con cualquier control que tenga
los eventos mousedown y mouseup.

Dim oldX As Single, oldY As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
oldX = X
oldY = Y
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Me.Move (Me.Left - ((oldX - X))), (Me.Top - ((oldY - Y)))
End If
End Sub