＞PB6での「時分秒」を表示するにはほかのやり方があるのでしょうか？
＞
＞皆さんよろしくお願いします。

下記でいかがでしょうか？　Exzample Codeから抽出した僕のクラスライブラリです。
１．w_timerを作成し、テキストを貼り付ける。
２．下記をw_timerに記述する。

st_time.Weight = 300
Timer(60)
this.TriggerEvent(Timer!)
this.Resize(st_time.Width,st_time.Height)

st_time.Text = String(Today(),\"yyyy\'年\'mm\'月\'dd\'日\'\") +\" \" +&
                      String(Now(),\"h:mm AM/PM\")

３．time_move関数をMDIフレームに作成する。
/* w_timer による時刻表示に用いる */
Integer li_x,li_y,li_width,li_height
li_x = This.WorkSpaceX()
li_y = This.WorkSpaceY()
li_width = This.WorkSpaceWidth()
li_height = This.WorkSpaceHeight()
IF IsValid(w_timer) Then
w_timer.Move(li_width +li_x -w_timer.width -70, &
             li_height +li_y -w_timer.height -3)
END IF

４．MDIフレームにて起動し、常に画面右下(time_move())に表示されるようにする。