初めて利用させていただきます。

ＶＢ初心者です。宜しくお願い致します。

３桁の乱数を表示させた場合、数字の切り替わり時のちらつきが非常に気になります。
ちらつかずに表示させる方法はありませんか？
サンプルで抜き出したソースは下記の通りです。
（label1とtimer1を置いただけのformです。）


−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Option Explicit

Private Sub Form_Load()

Form1.BackColor = "&H00C0FFFF"

Label1.BackStyle = "0"
Label1.FontSize = "200"
Label1.Height = "4000"
Label1.Width = "7000"
Label1.Top = "200"
Label1.Left = "200"
Label1.Alignment = "2"

Timer1.Interval = 100
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim g As Integer

g = Int(999 * Rnd)
Label1.Caption = Right$("000" & Right$(Str(g), Len(Str(g)) - 1), 3)
Form1.Refresh

End Sub

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

> 初めて利用させていただきます。
環境等が書かれていないと注意事項を読んでいないとみなされレスが付かない場合がありますよ。

> Form1.Refresh

投稿されたコードだけで気になるほどチラツキますか？
(それだったら、方法がないかも）

Form1.Refresh　は、Label1.Refresh の間違い？
(他に色々コントロールが貼り付けられていると差が出るかもしれません)

Label の代わりに、PictureBox に表示するといくらかチラツキを抑える事ができる
そうですが、マシンの性能や個人の感じ方にも左右されるので。
因みに、投稿されたコードを試した限りでは気になるようなチラツキではありませんでした。

乱数を表示させた場合はそれほど気になりませんでしたが、同じ数字を表示させた
場合、１秒に１回位の割合で画面の表示が変(画面にみだれが走る？)になりますね。
詳しくは知りませんが、VSYNC が原因のようです。


下記を試して見て下さい。

Option Explicit
Private Sub Form_Load()
   Me.Move 0, 0, 9400, 8400
   With Label1
      .Move 100, 100, 9000, 3800
      .BackColor = vbWhite
      .FontSize = 200
   End With
   With Picture1
      .Move 100, 4000, 9000, 3800
      .BackColor = vbWhite
      .FontSize = 200
      .AutoRedraw = True
      .ScaleMode = vbCharacters
      .CurrentX = 1
      .CurrentY = 1
   End With
   Timer1.Interval = 100
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
   Dim MyTime As String
   MyTime = Format$(Now, "nn:ss")
   Label1.Caption = MyTime
   Label1.Refresh
   Picture1.Cls
   Picture1.Print MyTime
   Picture1.Refresh
End Sub

花ちゃんさん、早速ありがとうございました。

朝の用事を済ませてから、すぐに試してみます！！！

また、結果がわかり次第ご報告いたします。

pictureとlabelを同一フォームに貼り付けて試したところ、
ちらつきは格段にpictureの方が少ない（というより、認識できません）でした。
ありがとうございました。

後は、フォームに貼り付けた絵をlabelの場合は透明にして表示していましたが
pictureプロパティーには透明が見当たらないので、何とか策を考えたいと思います。
すごく助かりました♪

ちなみに私はハード屋でソフトもアセンブラ専門ですので、ｂａｓｉｃと言えば
大昔のＭＳのＮ８８ＢＡＳＩＣ以来です。(笑)

（と、ここで時間が経過しました。）

ありがとうございました。
バックの絵は何もしなくても解決しました♪
すごく助かりました。また、何かありましたら宜しくお願い致します。
m(_ _)m