简单窗体弹出问题，跪求高手解答！

[bluelang]

dim Nfrmrflist as Frmrflist
    
Public Sub ontagmy3(ByVal send As Object, ByVal args As Impinj.OctaneSdk.TagsReportedEventArgs) Handles XspeedReader.TagsReported

        If NFrmRflist Is Nothing Then
            NFrmRflist = New FrmRfList
            NFrmRflist.Show()
        Else
            NFrmRflist.Activate()
        End If

end sub

代码如上，是在读写器是读到数据时间中弹出窗体。
可是事件触发后，窗体弹出就类似死机一样。如果我把这一段代码复制到按钮事件中运行是正确的。

[quackonchen]

多线程吧。。。

[Wicho开源开发中]

对VB不甚了解
不知道VB中可以这样写 C#不能这样写

 NFrmRflist = New FrmRfList
            NFrmRflist.Show()

NFrmRflist  list= New FrmRfList
           list.Show()

[bluelang]

Frmrflist是我创建的一个windows窗体类

[bluelang]

人情冷漠，怎么没有人回答。或者给个建议

[bluelang]

up!

[昵称不能为空噢噢噢噢]

帮顶，vb语法和delphi语法一样令人淡腾啊

[bluelang]

给个建议吧。

[小猪飞飞]

额,这个和弹出个进度条有什么区别吗????
多线程+委托...

真心不想写代码了...
这就是个简单的下载上传文件之类的,然后做个进度条...
别和我说这个还搞不定,网上一大把.....

[bluelang]

Up!!

[bluelang]

dim Nfrmrflist as Frmrflist
    
    Public Sub ontagmy3(ByVal send As Object, ByVal args As Impinj.OctaneSdk.TagsReportedEventArgs) Handles XspeedReader.TagsReported

        Dim CLa As New Cl(AddressOf DisplayX)
        For Each Tag As Tag In args.TagReport.Tags

            Me.Invoke(CLa, Tag.Epc)
        Next



       
    End Sub




Private Delegate Sub Cl(ByVal Sa As String)
  Private Sub DisplayX(ByVal Sa As String)
        If NFrmRflist Is Nothing Then
            NFrmRflist = New FrmRfList
            NFrmRflist.Show()
        Else
            NFrmRflist.Activate()
        End If
        NFrmRflist.listbox1.items.add(sa)
   end sub