Membuat Spash Screen dengan Vb6

Option Explicit
Private Sub
Form_KeyPress(KeyAscii As Integer)     Unload Me End Sub
Private
Sub Form_Load()    ‘ lblVersion.Caption = “Version ” &
App.Major & “.” & App.Minor & “.” & App.Revision  
‘  lblProductName.Caption = App.Title End Sub
Private Sub
Frame1_Click()     Unload Me End Sub
Private Sub
Timer1_Timer() Dim counter As Double counter = 0 Do    
counter = counter + 0.005