Minggu, 14 Agustus 2011

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

Tidak ada komentar:

Poskan Komentar

Related Posts Plugin for WordPress, Blogger...