StatusText_KeyDownの部分を書き直していなかったのを直した

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1320 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index eaf36b8..b649525 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5874,7 +5874,7 @@ RETRY:
     End Sub
 
     Private Sub StatusText_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles StatusText.KeyDown
-        Dim State As Integer = GetModifierState(e)
+        Dim State As Integer = GetModifierState(e.Control, e.Shift, e.Alt)
         If State = ModifierState.NotFlags Then Exit Sub
         If CommonKeyDown(e.KeyCode, ModifierState.StatusText, State) Then
             e.Handled = True