thanks much JR. Here is what I am left with
Code:
 

Private Sub Main()
    If App.PrevInstance Then
        End
    Else
        Load frmSplash
        Unload frmSplash
        Load Mainfrm
    End If
End Sub
One more question though, is it OK to use END in this case, or is there a better method ?
kevin