fd

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        MessageBox.Show("Wszedles na rynek slowacki")
        Shell("If exist Then p:\ (
    Net use p:   /delete /y
)
Net use p:   \\10.1.1.7\czechy")