[silverlight]

الواضح انك مترجم الكود من #C ولكن بشكل خاطئ فقط لا غير 
عموما الكود أسهل مما تتخيل بسرط يكون عندك Event , EventArgs المناسبة لكي تطلق الحدث

الكود الخاص بك يجب ان يكون كالتالي ......

كود :

       Try
           If od.ShowDialog <> DialogResult.Cancel Then
               If IO.File.Exists(Me.od.FileName) Then
                   Dim fc As String = IO.File.ReadAllText(Me.od.FileName)
                   If fc.Contains("@") Then
                       'RaiseEvent
                   End If
               End If
           End If
       Catch ex As Exception

       End Try