Private Sub DGAnzeige_MouseUp(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles DGAnzeige.MouseUp
        'Hier wird ermittelt, auf welches Element der User geklickt hat.
        Dim hti As System.Windows.Forms.DataGrid.HitTestInfo
        hti = Me.DGAnzeige.HitTest(e.X, e.Y)
 
        Select Case hti.Type
            Case System.Windows.Forms.DataGrid.HitTestType.None
                'Do nothing
            Case System.Windows.Forms.DataGrid.HitTestType.Caption
                'Do nothing
            Case System.Windows.Forms.DataGrid.HitTestType.Cell
                Me.DialogResult = DialogResult.OK
                Me.Close()
        End Select
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)