Public Event chosen()
 
'und der Handler
 AddHandler datagrid2.CurrentCellChanged, AddressOf Returnvalue

Private Sub Returnvalue(ByVal sender As Object, ByVal e As System.EventArgs)
 
        RaiseEvent chosen()
        Me.Visible = False
    End Sub

Private Sub chooser_chosen()
        MsgBox("chosen")
        Label1.Text = Chooser.aktdatarow.Item("deutsch")
        Label2.Text = Chooser.aktdatarow.Item("englisch")
    End Sub