Auto scroll

k

Private Sub Text1_Change()
  Text1.SelStart = Len(Text1.Text)
End Sub

jeg ville nok lave det sådan.

Private Function DeleteTekst()
Dim SletTekst As Long
  If Len(Text1.Text) > 3500 Then
    SletTekst = Len(Text1.Text) - 3500
    Text1.SelStart = Len(Text1.Text) - SletTekst
    Text1.SelLength = SletTekst
    Text1.SelText = \"\"
    Text1.SelStart = 0
  End If
End Function

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim WsData As String
Dim TextTemp As String
  Winsock1.GetData WsData, vbString, bytesTotal
    TextTemp = Text1.Text
  Text1.Text = WsData & vbCrLf & vbCrLf & TextTemp
Call DeleteTekst
End Sub

Det jeg mener er at, når det lille text felt som er vist som \"chatten\", bliver fyldt ud så skal den bare scrolle ned af så man kan se den nye text som er modtaget.

så brug:

Private Sub Text1_Change()
  Text1.SelStart = Len(Text1.Text)
End Sub

Tak for hjælpen......