чтобы прогу больше

[mrm]

как сделать
тобы прогу больше 1 копии незя запустить

[temur]

Если проект запускается из Sub Main тогда попробуй так

Код: Выделить всё

Public Sub Main()
Dim Proc() As Process
Proc = Process.GetProcessesByName("Имя фалла без расширения")
For i As Integer = 1 To Proc.Length - 1
     Exit Sub
Next i

Application.Run(StartForm)

End Sub

Если из формы

Код: Выделить всё

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Proc() As Process
Proc = Process.GetProcessesByName("Имя фалла без расширения")
For i As Integer = 1 To Proc.Length - 1
     Application.Exit()
Next i

EndSub

[Sebas]

Галочку в свойствах поставить.
Single Instance Application

или сравнить MainModule у всех запущеных сборок

[temur]

Галочку в свойствах поставить.
Single Instance Application

А это где её найти?