Uzman Üye
Insert formu aç kapa kodları tam olarak şu şekilde;
'///////////////////////////////////////////////////////////////////
' İnsert Baş
On Error Resume Next
Dim game As Process() = Process.GetProcessesByName("Programın adı")
If GetAsyncKeyState(Keys.Insert) = -32767 Then
If d3d.Visible = False Then
d3d.Visible = True
Me.Show()
Exit Sub
End If
If d3d.Visible = True Then
d3d.Visible = False
Me.Hide()
Exit Sub
End If
End If
On Error Resume Next
' İnsert Son
'///////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////
' İnsert Baş
On Error Resume Next
Dim game As Process() = Process.GetProcessesByName("Programın adı")
If GetAsyncKeyState(Keys.Insert) = -32767 Then
If d3d.Visible = False Then
d3d.Visible = True
Me.Show()
Exit Sub
End If
If d3d.Visible = True Then
d3d.Visible = False
Me.Hide()
Exit Sub
End If
End If
On Error Resume Next
' İnsert Son
'///////////////////////////////////////////////////////////////////