Private Sub FpSPtList_CellDoubleClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSPtList.CellDoubleClick
Dim str As String = Me.FpSPtList.Sheets(0).Cells(e.Row, 2).Value Dim f As New frmPtHome f.Show() End Sub
Dim str As String = Me.FpSPtList.Sheets(0).Cells(e.Row, 2).Value Dim f As New frmPtHome
f.Show()
End Sub