>>57

↓こんな感じでできる。

Public Const vbShiftMask　　　　　　　　As Integer = 1　　　'キーコードマスク定数。
Public Const vbCtrlMask　　　　　　　　 As Integer = 2　　　'　　　　〃

Public Sub cboKyDwn(ByRef KeyCode As Integer, _
　　　　　　　　　　ByRef Shift As Integer, _
　　　　　　　　　　Optional ByVal blnAlowDelete As Boolean = True)
　　
　　'blnAlowDelete引数が指定されている場合、[Delete],[BackSpace]による削除を禁止する。
　　If Not blnAlowDelete And (KeyCode = vbKeyDelete Or KeyCode = vbKeyBack) Then
　　　　KeyCode = 0
　　　　Exit Sub
　　End If

　　'クリップボードへのCopyができるように。
　　'[Ctrl]+[C], [Ctrl]+[Insert]
　　If Shift And vbCtrlMask Then
　　　　If (KeyCode = vbKeyC) Or (KeyCode = vbKeyInsert) Then Exit Sub
　　End If
(改行が多過ぎてカキコできないｗので、次の発言に続く)