visual basic de wolfü veya zulu nınki gibi inster tuşuna basınca nasıl menu açılışı yaparım

If Getasynckeystate(keys.Insert) then ' Eğer Insert tuşuna Basılırsa
If label1.visible = true then ' label1 görünürmü kontrol et
me.hide 'Görünür ise Formu gizle
label1.visible = false ' label1 görünürlülüğünü kapat
Else ' eğer görünür durumda değilse basıldığı an
me.show ' formu göster
label1.visible = true 'label1'i Görünür hale getir
End if 'Label1 koşulu bitti
End if ' Getasynckeystate koşulu bitti

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short

'Takibin gerçekleşeceği tanımlayıcı
If(getasynckeystate(Keys.Insert)) Then
'eylem
End If