Private Sub Form_Load()Picture1.Visible = FalseTimer1.Interval = 5000'这里设为5秒,你可以根据需要设置End SubPrivate Sub Timer1_Timer()Picture1.Visible = TrueTimer1.Enabled = FalseEnd Sub
dim i as integerPrivate Sub Form_Load() Picture1.Visible = False Timer1.Interval = 1000 '每一秒钟调用一Timer1_Timer事件End Sub Private Sub Timer1_Timer() i=i+1if i>=5 '5秒后