Public Class myControl
   Inherits Control
 
   Private m_UseMnemonic As Boolean = False
 
   Public Property UseMnemonic() As Boolean
      Get
         Return m_UseMnemonic
      End Get
      Set(ByVal value As Boolean)
         m_UseMnemonic = value
      End Set
   End Property
 
   Protected Overrides Function ProcessMnemonic(ByVal charCode As Char) As _
     Boolean
      If m_UseMnemonic Then
         If Control.IsMnemonic(charCode, Me.Text) Then
            ' Mnemonic Key gedrückt. Jetzt mach was mit deinem Control
         End If
      End If
      Return MyBase.ProcessMnemonic(charCode)
   End Function
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control