buen dia....Espero me puedan ayudar...
Tengo un problema...Estoy tratando de hacer una barra divisora horizontalmente....pero aun no doy...encontre un code en la web pero es vertical...y no permite ajustar tamaño a la izquierda........bueno modifique el code de esta forma:
Código:
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
On Error Resume Next
If TypeName(Source) = "CommandButton" Then
Source.Top = Y + 100
Form_Resize
End If
End Sub
Private Sub Form_Load()
L.DragMode = vbAutomatic
End Sub
Private Sub Form_Resize()
On Error Resume Next
T.Left = 0
T.Width = Me.Width
T.Height = Me.Height - 400
T.Top = Me.L.Top + 140
'T.Height = Me.Height - 100
End Sub
Private Sub T_DragDrop(Source As Control, X As Single, Y As Single)
If TypeName(Source) = "CommandButton" Then
Source.Top = Y + 100
Form_Resize
End If
End Sub
pero el problema es que solo me ajusta hacia arriba y no hacia abajo....bueno gracias por su atencion