初めまして。なるとと言います。皆さん宜しくお願いいたします。

VB6.0を使いテキストボックスにカーソルがある状態で、
キーボードのスペースキーを押すと別フォームを呼び出すという
プログラムを作っていますが、初心者でして
ソースが浮かばず四苦八苦しております。

もし宜しければ御教授戴けます様お願い致します。

こう言う事でしょうか？

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeySpace Then
        KeyAscii = 0
        Form2.Show
    End If
End Sub

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

ありがとうございます。
ただ、Private Sub Text1_Changeでやる場合というのを
書き忘れてしまいました。申し訳ありません。
もしよければ御教授下さい。

> ただ、Private Sub Text1_Changeでやる場合というのを
> 書き忘れてしまいました。申し訳ありません。
> もしよければ御教授下さい。

なんでKey_Pressじゃダメなんですかね？

> VB6.0を使いテキストボックスにカーソルがある状態で、
> キーボードのスペースキーを押すと別フォームを呼び出すという
> プログラムを作っていますが、初心者でして
> ソースが浮かばず四苦八苦しております。

単に表示するなら、こうでしょう。
但し複数の文字列入力の途中でもＦｏｒｍ２が出ますが。
その他、諸々が自分で考えて対処して下さい。

Private Sub Text1_Change()
If Text1.Text = " " Then Form2.Show
End Sub

または
If instr(Text1.Text, " ") > 0  Then Form2.Show

多分こちらの方が条件に合うのでは
全角・半角の両方のスペースに対応しており、貼り付け等の途中に入っているスペースを無視し、最後が
スペースの時だけ表示します

Private Sub Text1_Change()
    If Len(Text1.Text) >= 1 And _
        StrConv(Right$(Text1.Text, 1), vbNarrow) = " " Then
        Form2.Show
    End If
End Sub

> 多分こちらの方が条件に合うのでは
> 全角・半角の両方のスペースに対応しており、貼り付け等の途中に入っているスペースを無視し、最後が
> スペースの時だけ表示します
>
> Private Sub Text1_Change()
>     If Len(Text1.Text) >= 1 And _
>         StrConv(Right$(Text1.Text, 1), vbNarrow) = " " Then
>         Form2.Show
>     End If
> End Sub
ありがとうございます。
おかげさまでうまく作れました。