aceさん、こんにちは。

回答していただき、本当にありがとうございます。

すごく丁寧にスクリプトの記述までしていただき、おかげさまで無事できました！
感動ものですね！

＜同じ壁？にぶち当たった方へ＞
UNLHA32.dllはどこからか持ってこなければならないと思います。
(実際自分はWeb上からDownLoadしてきました)
コーディングですが、aceさんの記述で問題なく動作致します。

最後に。
改めてありがとうございました。
また機会がありましたら、是非とも宜しくお願い致しますm(_ _)m

＞TESTESTさん、こんにちは。
＞
＞LHAの場合かつPB11
＞(11未満は alias for の;Ansiを除く)
＞
＞外部関数宣言
＞
＞function integer Unlha(integer hWnd,String szCmdLine,ref String szOutput,integer dwSize) 
＞library \"UNLHA32.dll\" alias for \"Unlha;Ansi\"
＞
＞
＞圧縮ボタン（cb_compress)を作成したとして、その中のスクリプト
＞
＞
＞String StCmd,WkBuff
＞Long Ret
＞
＞stCmd = \"a 圧縮先ファイル名.LZH -gb圧縮したいファイル\"
＞// ※StCmd内の内容はLhaのコマンドパラメタを参照してください。
＞WkBuf = SPACE(255)
＞//ボタンに組み込んだとして、Handle(parent)を使用
＞Ret = Unlha(Handle(parent), stCmd,WkBuf,255)
＞IF Ret <> 0 THEN
＞　MessageBox(\"ERROR\",\"圧縮失敗\")
＞END IF
＞
＞こんな感じかな？
＞
＞
＞
＞＞こんにちは。
＞＞
＞＞PB初心者で申し訳ありませんが、ご教授願います。
＞＞
＞＞やりたいことなのですが、題名通りの、
＞＞「SAVEASで出力したファイルを圧縮したい」という事なのですが、
＞＞DOS窓を使用せずにやり方を知っていらっしゃる方、もし教えていただけると嬉しいです。
＞＞
＞＞
＞＞宜しくお願いします。
＞＞
＞
＞