Private Sub txtMessage_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13  and Shift = 2Then   ' Return und CTRL
 
    For i = 1 To txtMessageNumber.Text
        netsend1.SendMessage txtToUser.Text, "Oliver", txtMessage.Text
    Next i
 
txtMessage.Text = ""
txtMessage.SetFocus
KeyCode = 0 ' Return zurücksetzen
Shift = 0  ' Shift zurücksetzen
End If
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control