Como hacer el command button invisible a un determino tiempo

[buxforever]

si en una ocx aparte efectivamente pero si le pongo .value me marca error dentro del timer asi esta todo actualmente

Dim i As Integer

Private Sub ChameleonBtn1_Click()
Form17.Show
Unload Form23
End Sub

Private Sub Form_Load()
If XP_ProgressBar1.Count = "100" Then
ChameleonBtn1.Enabled = False
Else
ChameleonBtn1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()
Dim X As Integer

If XP_ProgressBar1(0).Value >= XP_ProgressBar1(0).Max Then
For i = 0 To XP_ProgressBar1.Count - 1
XP_ProgressBar1(i).Value = 100
Next
Else
For i = 0 To XP_ProgressBar1.Count - 1
XP_ProgressBar1(i).Value = XP_ProgressBar1(i).Value + 1
Next
For X = 100 To XP_ProgressBar1.Count - 1
XP_ProgressBar1(X).ShowText = XP_ProgressBar1(X).ShowText
Next
End If

End Sub