こう言う事でしょうか?Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeySpace Then KeyAscii = 0 Form2.Show End IfEnd Sub