windowフォームアプリでApplication.Run()ができない

Question

前提・実現したいこと

https://kondo-robot.com/faq/serial-servo-method-tech-4
これを見ながらvisual basicでサーボを動かすシステムを作っていました。
スタートアップオブジェクトがSub Mainなっていたので、Form1にして実行したところ、エラーメッセージが発生しました。また、変える前も同じエラーが発生しました。

発生している問題・エラーメッセージ

System.InvalidOperationException: 'Instance is read-only.'

該当のソースコード

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SerialPort1.Close() 'いったんポートを閉じる
        If ComboBox1.Text <> String.Empty Then 'COMポート名が空っぽでなかったら（正しく選択されていた場合）
            SerialPort1.PortName = ComboBox1.Text 'ポート名を指定する
            SerialPort1.Open()                    'ポートを開く（接続する）
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox1.Items.Clear() 'ComboBoxメニューの中身をいったん削除する
        ComboBox1.Items.AddRange(System.IO.Ports.SerialPort.GetPortNames()) '接続中の全COMポート名をメニューに追加する
    End Sub

    Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Dim Pos As Integer 'サーボから返ってきたデータを保存するための変数
        If SerialPort1.IsOpen = True Then 'COMポートが接続済みである場合だけ処理を行う
            Pos = SetPos(NumericUpDown1.Value, TrackBar1.Value) 'SetPosコマンドにID番号とTrackBarの位置（ポジション）を送る
            If Pos <> -1 Then 'モーターがきちんと動作した場合
                TextBox1.Text = Pos.ToString() '受け取った現在位置データを文字列に変換して、TextBoxコントロールに表示する
            End If
        End If
    End Sub

    Private Function SetPos(ByVal Id As Integer, ByVal Pos As Integer) As Integer
        Dim Tx(3) As Byte 'unsigned char Tx[3]
        Dim Rx(6) As Byte 'unsigned char Rx[6](ループバックを含む)
        Dim Dat As Integer 'int Dat
        Dim Flag As Boolean = True '正しくデータが受け取れたかチェックするフラグ

        Tx(0) = &H80 Or Id        'Tx[0] = 0x80 | id
        Tx(1) = Pos >> 7 And &H7F 'Tx[1] = (pos &gt;&gt; 7) &amp; 0x7F
        Tx(2) = Pos And &H7F      'Tx[2] = pos &amp; 0x7F

        SerialPort1.DiscardInBuffer() 'いったんバッファをクリアする
        SerialPort1.DiscardOutBuffer()

        SerialPort1.Write(Tx, 0, 3) 'Tx配列(ICSコマンド)をシリアルポートから出力する

        For i As Integer = 0 To 5 Step 1 '１バイト受信を６回繰り返します
            Try 'データを１バイト受信する
                Rx(i) = CType(SerialPort1.ReadByte(), Byte) 'CTypeは型変換関数
            Catch ex As Exception '何かしらの理由で受信失敗
                Flag = False
                Exit For 'ループは終了する
            End Try
        Next

        If Flag = False Then '受信に失敗したので-1を返す
            SetPos = -1        '関数名に値を代入すると値を返して関数終了
        End If

        Dat = CType(Rx(4), Integer) 'データを元に戻す
        Dat = (Dat << 7) + CType(Rx(5), Integer)

        SetPos = Dat '関数名に値を代入すると値を返して関数終了

    End Function
End Class

'Sub Mainから変える前の残骸、変える前も同じ症状が出た
Module mainModule
    <STAThread()>
    Sub Main()
        Dim _form1 As New Form1()
        Application.Run(_form1) ' エラー箇所 _form1.ShowDialog()でも同じ
    End Sub
End Module

補足情報

VisualStudio 2019の最新版を使っています。
ターゲットフレームワークは.NET Core 3.1です
スタートオブジェクトを"Form１"に指定した場合
「お使いのアプリはブレーク状態になりましたが、すべてのスレッドが外部コード (通常はシステム コードまたはフレームワーク コード) を実行していたため、表示されるコードはありません。」
という画面が出ます。
Sub Mainににした場合は、65行目付近の
Application.Run(_form1)
で出ます。

おそらく今回のエラーとは関係ないと思いますが、ここを元にSerialPortを追加しています。

サーボ動かすために始めた初心者なので、とても簡単なやつをやろうと思い、ボタンを押したらボタンのテキストが変わるというのを作り、Form1からスタートするようにしたところできました。逆にできてしまったので、絶対わからないだろうなと思い質問させていただきました。

また、ここを参考にShowDialogでやっても同じエラーが出ました

Comments

[y_waiwai]

どの行でエラーが出たんでしょうか

[cx20]

環境が不明な為、下記の記載をお願いします。
・Visual Studio のバージョン
・.NET Framework のバージョン（ターゲットフレームワーク）

Answer 1

■ シリアルサーボ制御方法（５）　PCから直接制御編（その２）
https://kondo-robot.com/faq/serial-servo-method-tech-5

のページの最後にサンプルのソースコードがありました。こちらでもエラーになりますか？

■ Visual Basic のソースコード　
https://kondo-robot.com/w/wp-content/uploads/IcsSetPosition_VB.zip

Comments

[_nb_eri_]

返信ありがとうございます。
悩む前に１度やったのですができず、今また試してみたところできました。。。
ありがとうございますm(_ _ )m

ただ、前やったときは、「～（覚えてないです、、、）のアップグレードができます」みたいなことを言われそれをせずにやって出来ませんでした。今開いたときはそれが聞かれませんでした。勝手にアップグレードされたのでしょうか。

[cx20]

再現性がないとトラブルシューティングは厳しいですね。。
.NET Core 3.1 でプロジェクト作ってみましたが、エラーは再現しないようでした。

最近の .NET 動向をあまり追っていないのですが、
.NET Core 3.1 では SerialPort を標準サポートしていないようなので、.NET Framework にしておいた方が無難そうな気はします。