Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim i As Integer
  Dim u As Integer
 
  Static iLast As Integer
 
  If KeyAscii = 32 Then
    u = iLast - 1
    For i = 0 To chkColor.UBound
      u = u + 1
      If u > chkColor.UBound Then u = 0
 
      If chkColor(u).Value <> 0 Then
        KeyAscii = 0
        Text1.SelText = " " + chkColor(u).Tag
        iLast = u + 1: Exit For
      End If
    Next i
  End If
End Sub