デジタル時計の早送り (ID:143279)

名前

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

本文 デジタル時計を作っています。 VB初心者です。宜しくお願いします。 このデジタル時計はformが開かれると午前6:00から現在の時刻(たとえば11:00)の時間まで早送りされ、現在の時間まで到達したら通常のタイマーの動きになるようにしたいと思います。デジタル時計までは何とか動くようにしました。 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '現在の日付時刻をローカルから取得する Dim dtNow As DateTime = DateTime.Now '取得した時刻をLabel.TEXTにセットする Me.Label1.Text = Format(dtNow, "HH:mm:ss") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 1000 Me.Timer1.Start() End Sub 上記のソースにどのようにてを加えればいいかわかりません。宜しくお願いします。