下記のようなコードをかきました。
exeを起動させ、自画面を終了するようにしたいのですが,
自画面を終了させることができません。exeは起動しました。
どうしたらいいのでしょうか？
よろしくおねがいします。
'------------------------------------------------------------
Private Sub cmdMenu_Click()
    
    Dim lngRet As Long
    Dim MyFile As String
    
    MyFile = Chr$(34) & "D:\業務\Test.exe" & Chr$(34)
    lngRet = Shell(MyFile, vbNormalFocus)
    
    end
end sub
'-----------------------------------------------------------
環境：VB6.0　Windows2000

> 下記のようなコードをかきました。
> exeを起動させ、自画面を終了するようにしたいのですが,
> 自画面を終了させることができません。exeは起動しました。
> どうしたらいいのでしょうか？
> よろしくおねがいします。
> '------------------------------------------------------------
> Private Sub cmdMenu_Click()
>    
>     Dim lngRet As Long
>     Dim MyFile As String
>      
>     MyFile = Chr$(34) & "D:\業務\Test.exe" & Chr$(34)
>     lngRet = Shell(MyFile, vbNormalFocus)
>    
>     end
> end sub
> '-----------------------------------------------------------
> 環境：VB6.0　Windows2000

七氏と申します。
end では無く　Umload Meで処理すればよいかと思います。
あと　Endで処理を終了させるのは、いただけません。

>     end
> end sub
この部分を手書きされた理由は！コードの省略ですか？
省略したようなコードを掲載してもらっても判断できませんよ

> 自画面を終了させることができません。exeは起動しました。
>     lngRet = Shell(MyFile, vbNormalFocus)
    
    この間の処理はどのようにしていますか

>    
>     end
> end sub

もちろん 七氏さんがおっしゃているように　End は使わない方がいいです。
End 以降の処理は何もされませんから！

> Private Sub cmdMenu_Click()
>    
>     Dim lngRet As Long
>     Dim MyFile As String
>      
>     MyFile = Chr$(34) & "D:\業務\Test.exe" & Chr$(34)
>     lngRet = Shell(MyFile, vbNormalFocus)

      ShellEnd(lngRet)

で出来ないですか？

> > Private Sub cmdMenu_Click()
> >    
> >     Dim lngRet As Long
> >     Dim MyFile As String
> >      
> >     MyFile = Chr$(34) & "D:\業務\Test.exe" & Chr$(34)
> >     lngRet = Shell(MyFile, vbNormalFocus)
>
>       ShellEnd(lngRet)
>
> で出来ないですか？

みなさんレスありがとうございます。なんとかできました。
EXEを起動させ、呼び出した側の画面を消す処理もつけくわえ
完成しました。
前の画面を殺す処理がうまくいってなかったようです。