ポートを閉じるには? (ID:115807)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 初めて投稿します。宜しくお願いします。 以下のようにして実行すると、 "ポートは既に開かれています"と エラーメッセージが出てしまいます。 Private Sub CommOpen(num) If MSComm1.PortOpen Then MSComm1.PortOpen = False MSComm1.CommPort = 1 MSComm1.Settings = "38400,n,8,1" MSComm1.PortOpen = True End Sub どうしたらポートが閉じれるのでしょうか? 教えていただけたら幸いです。