Ayuda con Barra Divisora Horizontal

[LeandroA]

Hola como va todo
el otro dia te preguntaba si utilizabas winsock porque yo tambien estoy haciendo un chat o mensagero i es masomenos lo mismo que quieres hacer tu , cuando lo termine te lo paso

con respecto a la barra divisora agrega un picture1 la cual sera la barra divisora (hacela bien laraga y fina y situala en el medio)
pone por arriva de la barra un richtextbox1 y por debajo un listview1


y el codigo


Private Sub moveSplit(ByVal vfMoveX As Single)
On Error Resume Next
Dim fNewRightAreaPos As Single
Dim fNewRightAreaHeight As Single
Dim fNewSplitTopftPos As Single

fNewRightAreaPos = Me.ListView1.Top + vfMoveX
fNewRightAreaHeight = Me.ScaleHeight - fNewRightAreaPos
fNewSplitTopftPos = Me.Picture1.Top + vfMoveX

If fNewRightAreaPos > 30 And fNewRightAreaHeight > 30 And fNewSplitTopftPos > 30 And fNewSplitTopftPos < (Me.ScaleHeight - 30) Then

RichTextBox1.Move RichTextBox1.Left, RichTextBox1.Top, Me.ScaleWidth, Picture1.Top
ListView1.Move ListView1.Left, fNewRightAreaPos, Me.ScaleWidth, fNewRightAreaHeight
Picture1.Move Me.Picture1.Left, fNewSplitTopftPos, Me.ScaleWidth, Picture1.Height

End If
End Sub

Private Sub Form_Resize()
moveSplit (1)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = vbLeftButton) Then
Call moveSplit(Y)

End If
End Sub


Saludos y suerte