>>459
Select Case e.KeyCode
　Case Keys.F12
　　If e.Shift = True Then
　　　処理
　　End If
End Select