下記のプログラムで、配列コントロールtext1(posi)とが表示されません。
ステップで実行すると　計測中　→　測定値　→　変化した測定値　と
ちゃんと変わってくれるのですが、Runすると表示せずにループを抜けた
後で最後の測定値を表示します。
Text1(posi).Text = "******" の前後にウェイトを咬ませてみたりしまし
たが結果は同じでした。
どなたか原因がわかる方、予測のつく方はご教示願います。

Do
  If (Timer - starttime) < wait_time Then 'wait中
    If Text1(posi).Text = "" Then
      Text1(posi).Text = "計測中"
    End If
  Else
    If Text1(posi).Text = "計測中" Then
      Text1(posi).Text = CurVal
    End If
    If Val(Text1(posi).Text) > CurVal Then
      Text1(posi).Text = CurVal
    End If
  End If
Loop While (GetSW = ON)

> 下記のプログラムで、配列コントロールtext1(posi)とが表示されません。
> ステップで実行すると　計測中　→　測定値　→　変化した測定値　と
> ちゃんと変わってくれるのですが、Runすると表示せずにループを抜けた
> 後で最後の測定値を表示します。
> Text1(posi).Text = "******" の前後にウェイトを咬ませてみたりしまし
> たが結果は同じでした。
> どなたか原因がわかる方、予測のつく方はご教示願います。
>
> Do
>   If (Timer - starttime) < wait_time Then 'wait中
>     If Text1(posi).Text = "" Then
>       Text1(posi).Text = "計測中"
>     End If
>   Else
>     If Text1(posi).Text = "計測中" Then
>       Text1(posi).Text = CurVal
>     End If
>     If Val(Text1(posi).Text) > CurVal Then
>       Text1(posi).Text = CurVal
>     End If
>   End If
> Loop While (GetSW = ON)

すいません。　DoEventsを入れ忘れてました。

Me.Refresh の一文を追加されたらいかがでしょうか？

> Me.Refresh の一文を追加されたらいかがでしょうか？

ありがとうございました。
早速試してみましたが、Text1(posi).Refreshでうまくいきました。
DoEventsを使わない方法として記憶しておきます。