Tek tusla hdd ve cd rom a ulaşma

Önce Formumuza 3 tane Command1 buton ekliyorsunuz. Daha sonra aşağıda yazmış olduğum kodları formunuza direk yapıştırıyorsunuz...
____________________________________________________________
Private Sub Command1_Click()
'Hdd C 'i çalıştırır
Shell "C:\WINDOWS\EXPLORER.EXE ,C:\Documents and Settings\Fatih Avcı\Belgelerim\", vbMaximizedFocus
End Sub

Private Sub Command2_Click()
' Hdd D i çalıştırır
Shell "C:\WINDOWS\EXPLORER.EXE ,D:\", vbMaximizedFocus
End Sub

Private Sub Command3_Click()
Shell "C:\WINDOWS\EXPLORER.EXE ,E:\", vbMaximizedFocus
End Sub

Private Sub Form_Load()
Form1.Caption = "Hdd ve Cd Romlara Ulaşma"
'Command1 için
Command1.Font = Arial
Command1.FontBold = True
Command1.FontSize = 12
Command1.Caption = "Hdd C:"
'Command2 için
Command2.Font = Arial
Command2.FontBold = True
Command2.FontSize = 12
Command2.Caption = "Hdd D:"
'Command3 için
Command3.Font = Arial
Command3.FontBold = True
Command3.FontSize = 12
Command3.Caption = "Cd E:"
End Sub