Public Class MyRadioButton
   Inherits RadioButton
 
   Declare Function GetDoubleClickTime Lib "user32" () As Integer
 
   Private dblClickTime As Integer = GetDoubleClickTime
   Private LastClickTime As DateTime
   Private ts As New TimeSpan
 
   Public Event DblClick(ByVal sender As MyRadioButton)
 
 
   Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
      MyBase.OnClick(e)
 
      ts = DateTime.Now.Subtract(LastClickTime)
 
      If ts.TotalMilliseconds() - LastClickTime.Millisecond < dblClickTime Then
         RaiseEvent DblClick(Me)
      End If
 
      LastClickTime = DateTime.Now
   End Sub
End Class

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