Βρήκα την παρακάτω λύση , αλλά γιατί δεν με ικανοποιεί ;
Private Sub Dp_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Dp.Click
Microsoft.VisualBasic.Shell("cmd.EXE /K", AppWinStyle.NormalFocus)
My.Computer.Keyboard.SendKeys("F:", True)
My.Computer.Keyboard.SendKeys("{enter}", True)
My.Computer.Keyboard.SendKeys("Dp", True)
My.Computer.Keyboard.SendKeys("{enter}", True)
End Sub