Apart from creating shaped controls you can also
include sounds to make it more appealing and
nteractive

Here is the API that plays sound

'''''

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Public Const SND_ASYNC = &H1 ' play asynchronously

Public Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound

'''''''

Usage :: sndPlaySound "c:\AppStart.wav",&H1