Membuat Form Splash di Microsoft Visual Basic

Cara Membuat Form Splash

1.       Pada Form tampilan utama masukan 2 label, 1 Timer, 1 Picture selanjutnya atur Properties dan pengaturan pada Tampilan from plash.

Objek	Properties	Pengaturan
FormPlash	Name Caption	FormPlash Form Plash
Label2	Name Caption Backstyle	Label2 00:00:00 0 - Transparent
Labelplash	Name Caption Backstyle	Labelplash - 0 - Transparent
Timer1	Name Interval	Timer1 1000

Script Form Plash

Private Sub Form_KeyPress(KeyAscii As Integer)

    Unload Me

    End Sub

Option Explicit

Private Sub Label2_Click()

End Sub

Private Sub Timer1_Timer()

Label2.Caption = Format(Now, "hh:mm:ss")

        Static count As Integer

        count = count + 1

       

        If count = 1 Then

            labelplash = "Memulai Aplikasi ..."

        ElseIf count = 2 Then

            labelplash = "Menyiapkan Form ..."

        ElseIf count = 3 Then

            labelplash = "Membuka aplikasi Perpustakaan MARI ..."

        ElseIf count = 4 Then

            labelplash = "Koneksi Database..."    

        ElseIf count = 5 Then

            labelplash = "Koneksi Berhasil ! ... "  

        ElseIf count = 6 Then

            labelplash = "Memuat ..." 

        ElseIf count = 8 Then

            Timer1.Enabled = False

            Unload Me

          FormCek.Show

        End If

End Sub