Sub systemcmd(ByVal cmd As String) Shell("cmd /c """ & cmd & """", AppWinStyle.MinimizedFocus, True) End Sub