Private Sub OnDataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)

      受信処理プログラム
End sub


formA


Private Sub TESTA
    

     While m_blnTest = False
　　　　　'無限ループになります。
     End While

End Sub

質問
1,m_blnTestの値は、シリアル通信の受信を利用して取得しますが現在、 無限ループ
になって受信処理が走らなくなります。
無限ループにならないようにしたいのですが何かいい方法は、ありませんか？
できたらdoEvents以外でお願いします。
doEventsは、動作不安定でどのような動作をするかわからないと書いてあったからです。

> Private Sub TESTA
>    
>
>      While m_blnTest = False
> 　　　　　'無限ループになります。
>      End While
>
> End Sub

こういうループは駄目です。どうしてもこういう実装にしたければスレッドを分けましょう。
スレッドを分けない場合はTimerなどを使用するという方法もあります。


m_blnTestはどのようなタイミングでTrueになりどのようなタイミングでFalseになりますか？


P.S. 個人的には
m_blnTest = False
と書くのは好きではないです。
not m_blnTest
と書いた方がbooleanらしい使い方だと思います。
=を使いたいならそもそもbooleanではなくintegerなどを使えばよいと思います。