eğer insert ile menü açıp kapatmay istiyosan
Try
Interaction.AppActivate("wolftü.bin") ' çalışacak uygulama !! cemal !!
Me.TopMost = True
Catch
Me.TopMost = True
End Try
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.Insert) = -32767 Then
If Label1.Visible = False Then
Label1.Visible = True
Me.Show()
Exit Sub
End If
If Label1.Visible = True Then
Label1.Visible = False
Me.Hide()
Exit Sub
End If
End If
If GetAsyncKeyState(Keys.Delete) = -32767 Then
Application.Exit()
Exit Sub
End If