sendkeys问题，多个窗体中操作．不好做
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim MyWin As Form2
Dim JB As Long
'JB句柄
'text1.text是新窗体的标题
Set MyWin = New Form2
JB = FindWindow(vbNullString, Text1.Text)
If JB = 0 Then
'指定标题窗体未打开
MyWin.Caption = Text1.Text
MyWin.Show vbModeless, Me
Else
'窗体已经打开
End If
End Sub
用句柄的方式，判断指定标题的窗体是否打开
如果未打开，则打开指定标题的窗体．
如果打开了，就发送文本到指定标题窗体中的text1.text
因为打开的多个窗体，用的都是form2．所以我建立了一个实例MyWin
这时就不能用form2.text1.text来做了
要用sendkeys来发送信息，如果有办法来调用新窗体的函数也行．．．
问题是如何指定新窗体的控件，新窗体中光标位置是不定的
