Membuat Screen Plash Di Visual Basic 6.0

KODING

Option Explicit

Dim efek As Integer

Private Sub Timer1_Timer()

On Error Resume Next

efek = efek + 5

ProgressBar1.Value = ProgressBar1.Value + 400 / 400

If efek > 500 Then

    Timer1.Enabled = False

    Screen.MousePointer = vbNormal

    Me.WindowState = 0

    Do

    Me.Left = Me.Left + 20

    Me.Move Me.Left, Me.Top

    DoEvents

    Loop Until Me.Left > Screen.Width

    Load Form1

    Form1.Show

        Unload Me

End If

End Sub

KODING ADMIN

Option Explicit

Dim hitung As Byte

Private Sub Cbatal_Click()
Unload Me
End Sub

'Event Tombol Login
Private Sub cmdLogin_Click()
If conn.State = 1 Then conn.Close
conn.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\bAHAB AJAR vISUAL bASIC\From Untuk  login\DB\login.mdb;Persist Security Info=False"
If RS.State = 1 Then RS.Close
RS.Open "select * from login where nama= '" & Txtnama.Text & "' And Password = '" & txtpass.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL MASUK MAIN MENU"
MainMenu.Show
        MainMenu.M.Enabled = True   ' m penamaan padasaat membuat menu
        'MainMenu.HN.Enabled = True   ' p penamaan padasaat membuat menu
        MainMenu.L.Enabled = True   ' l penamaan padasaat membuat menu
       MainMenu.login.Visible = False
        Unload Me
        Else
MsgBox "User Name Atau Password Salah", vbCritical, "L O G I N"
Txtnama.Text = ""
txtpass.Text = ""
Cmdlogin.SetFocus
End If
    End Sub

      Private Sub Txtpass_KeyPress(KeyAscii As Integer) ' koding ba enter nia
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Cmdlogin.SetFocus
    End If
End Sub