центрировать окно

написал часы в заголовке хочу отцентрировать окно

Private OldCaption As String

Private Sub Form_Load()
   frmMain.Caption = "Приложение часы"
   OldCaption = Me.Caption
   frmMain.StartUpPosition = CenterScreen
End Sub

Private Sub tmrTime_Timer()
Dim msg As String
   msg = OldCaption & " : " & Time$
   If msg <> Caption Then
      Caption = msg
   End If
End Sub

ругается на StartUpPosition в чём может быть проблема?

пытался найти решение проблемы в интернете но проблема так и осталась