'Programme créé par Minhyac - Avril 2008'
' and PaPi

Declare myexit as "ExitProcess" of "Kernel32.lib"
Dim result as integer
End declare

resource myicon as "BD.ico"
AppIcon "BD.ico"
resource btn1 as "Control Panel.bmp"
resource btn2 as "WExplorer.bmp"
resource btn3 as "Calc.bmp"
resource btn4 as "mozilla.bmp"
resource btn5 as "excel.bmp"
resource btn6 as "wmplayer.bmp"
resource btn7 as "cross.bmp"
resource btn8 as "outlook.bmp"
resource btn9 as "mspaint.bmp"
resource btn10 as "Au sujet de.bmp"

Dim myform as form
Myform.left=100
Myform.top=100
Myform.ClientHeight = 32
Myform.width=295
Myform.Caption = "Barre de démarrage"
Myform.color=&HE6E6E6
Myform.IconResource(myicon)

Dim MyButton1 as button
MyButton1.Caption=""
MyButton1.left=0
MyButton1.top=5
MyButton1.width = 25
MyButton1.showhint=1
MyButton1.Hint="Démarre le Panneau de Configuration"
MyButton1.parent=Myform
MyButton1.oncLick=Button1click
MyButton1.BMPResource(btn1)
        
Dim MyButton2 as button
MyButton2.Caption=""
MyButton2.left=29
MyButton2.top=5
MyButton2.width=25
MyButton2.showHint=1
MyButton2.hint="Démarre l'Explorateur de Windows"
MyButton2.TabOrder = 2
MyButton2.parent=Myform
MyButton2.oncLick=Button2click
MyButton2.BMPResource(btn2)

Dim MyButton3 as button
MyButton3.Caption=""
MyButton3.left=58
MyButton3.top=5
MyButton3.width=25
MyButton3.showHint=1
MyButton3.hint="Démarre la Calculatrice de Windows"
MyButton3.tabOrder = 3
MyButton3.parent=Myform
MyButton3.oncLick=Button3click
MyButton3.BMPResource(btn3)

Dim MyButton4 as button
MyButton4.Caption=""
MyButton4.left=87
MyButton4.top=5
MyButton4.width=25
MyButton4.showHint=1
MyButton4.hint="Démarre Mozilla Firefox"
MyButton4.tabOrder=4
MyButton4.parent=Myform
MyButton4.onclick=Button4click  
MyButton4.BMPResource(btn4)
      
Dim MyButton5 as button
MyButton5.Caption=""
MyButton5.left=115
MyButton5.top=5
MyButton5.width=25
MyButton5.showHint=1
MyButton5.hint="Démarre Excel"
MyButton5.tabOrder=5
MyButton5.parent=Myform
MyButton5.onclick=Button5click        
MyButton5.BMPResource(btn5)

Dim MyButton6 as button
MyButton6.Caption=""
MyButton6.left=143
MyButton6.top=5
MyButton6.width=25
MyButton6.showHint=1
MyButton6.hint="Démarre le Media Player"
MyButton6.tabOrder = 7
MyButton6.parent=Myform
MyButton6.onclick=Button6click        
MyButton6.BMPResource(btn6)

Dim MyButton7 as button 
MyButton7.caption = ""
MyButton7.left=256
MyButton7.top=5
MyButton7.width=25
MyButton7.showHint=1
MyButton7.hint="Quitter la barre de démarrage"
MyButton7.taborder=1
MyButton7.parent=Myform
MyButton7.onclick=Button7click
MyButton7.BMPResource(btn7)
  

Dim MyButton8 as button
MyButton8.caption=""
MyButton8.left=171
MyButton8.top=5
MyButton8.width=25
MyButton8.showHint=1
MyButton8.hint="Démarre Outlook"
MyButton8.taborder=9
MyButton8.parent=Myform
MyButton8.onclick=Button8click  
MyButton8.BMPResource(btn8)

Dim MyButton9 as button
MyButton9.caption=""
MyButton9.left=199
MyButton9.top=5
MyButton9.width=25
MyButton9.showhint=1
MyButton9.hint="Démarre MsPaint"
MyButton9.taborder=6
MyButton9.parent=Myform
MyButton9.onclick=Button9click  
MyButton9.BMPResource(btn9)

Dim MyButton10 as button
MyButton10.caption=""
MyButton10.left=227
MyButton10.top=5
MyButton10.width=25
MyButton10.showhint=1
MyButton10.hint="Au sujet de..."
MyButton10.taborder=10
MyButton10.parent=Myform
MyButton10.onclick=Button10click  
MyButton10.BMPResource(btn10)



Myform.showmodal



sub Button1click()
RUN "C:\windows\system32\control.exe","",SW_shownormal
end sub

sub Button2click()
RUN "C:\windows\explorer.exe","",SW_shownormal
end sub

sub Button3click()
RUN "C:\windows\system32\calc.exe","",SW_shownormal
end sub

sub Button4click()
RUN "C:\Program Files\Mozilla Firefox\firefox.exe","",SW_shownormal
end sub

sub Button5click()
RUN "C:\Program Files\Microsoft Office\Office\excel.exe","",SW_shownormal
end sub

sub Button6click()
RUN "C:\Program Files\Windows Media Player\wmplayer.exe","",SW_shownormal
end sub

sub Button7click()
myexit
myexit.result
end sub

sub Button8click()
RUN "C:\Program Files\Outlook Express\msimn.exe","",SW_shownormal
end sub

sub Button9click()
RUN "C:\WINDOWS\system32\mspaint.exe","",SW_shownormal
end sub

sub Button10click()
messagedlg("Barre de démarrage par Minhyac et Papi","Au sujet de",mbOk)
end sub