Hey Russ, once again thanks for your help so far, but i still have the problem. Here’s my complete Programm, i’m nearly sure i’ve done everything right, but i still have the error message. The funny thing is that i can jump to a specify row in a Module with the RapidEditor initdata function, but the GetRapidData thing won’t work…
By the way i’m using RAB 5.10 & Robotstudio 5.10.
Here’s my complete programm, maybe you see what’s wrong, i’ll keep on trying 
’ ABB namespaces
Imports ABB.Robotics.Tps.Taf
Imports ABB.Robotics.Controllers
Imports ABB.Robotics.Tps.Windows.Forms
Imports ABB.Robotics.Controllers.RapidDomain.RapidData
’ Compliance Tool Info
<Assembly: ABB.Robotics.Tps.Taf.TpsView(“test7”, “tpu-Operator32.gif”, “tpu-Operator16.gif”, “TpsViewtest7.dll”, _
“TpsViewtest7.TpsViewtest7”, StartPanelLocation.Left, TpsViewType.Dynamic, TpsViewStartupTypes.Manual)>
Public Class TpsViewtest7
Inherits TpsForm
Implements ITpsViewSetup, ITpsViewActivation
Dim ctrl As Controller
Dim f As FpRapidData
Dim rd As RapidDomain.RapidData
Private iTpsSite As ITpsViewLaunchServices
Friend WithEvents Button1 As ABB.Robotics.Tps.Windows.Forms.Button
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'NOTE: This is where you clean up any remaining resources used by your application before
'the application itself is disposed of by TAF (TeachPendant Application Framework).
'The method is called by TAF when the application is closed down.
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If Not IsDisposed Then
Try
If disposing Then
'ToDo: Call the Dispose method of all FP SDK instances that may otherwise cause memory leak
End If
Finally
MyBase.Dispose(disposing)
End Try
End If
End Sub
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New ABB.Robotics.Tps.Windows.Forms.Button
Me.SuspendLayout()
’
'Button1
’
Me.Button1.BackgroundImage = Nothing
Me.Button1.FontName = New ABB.Robotics.Tps.Windows.Forms.DesignerFont(“Font12b”)
Me.Button1.Location = New System.Drawing.Point(101, 118)
Me.Button1.Size = New System.Drawing.Size(264, 145)
Me.Button1.TabIndex = 2
Me.Button1.Text = “Button1”
Me.Button1.TextAlign = ABB.Robotics.Tps.Windows.Forms.ContentAlignmentABB.MiddleCen ter
’
'TpsViewtest7
’
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Inherit
Me.BackColor = System.Drawing.Color.LightGray
Me.Controls.Add(Me.Button1)
Me.Size = New System.Drawing.Size(640, 390)
Me.Controls.SetChildIndex(Me.Button1, 0)
Me.ResumeLayout(False)
End Sub
#End Region
#Region " ITpsViewSetup Members "
'NOTE: This method is called by TAF when the control is closed down (before Dispose is called).
Sub Uninstall() Implements ITpsViewSetup.Uninstall
'TODO: Add TpsViewtest7.Uninstall implementation
End Sub
'NOTE: This method is called by TAF when the control is installed in the framework (after the constructor is called).
Function Install(ByVal sender As System.Object, ByVal data As System.Object) As Boolean Implements ITpsViewSetup.Install
'TODO: Add TpsViewtest7.Install implementation
If TypeOf sender Is ITpsViewLaunchServices Then
’ Save the sender object for later use
Me.iTpsSite = DirectCast(sender, ITpsViewLaunchServices)
Return True
End If
Return False
End Function
#End Region
#Region " ITpsViewActivation Members "
'NOTE: This method is called by TAF when the control goes from the active state to the passive state,
'and is no longer visible in the client view. This happens when the user presses another application button
'on the task bar, or closes the application. Normally, any subscriptions to controller events are removed here.
Sub Deactivate() Implements ITpsViewActivation.Deactivate
'TODO: TODO: Add TpsViewtest7.Deactivate implementation
End Sub
'NOTE: This method is called by TAF when the control goes from the passive state to the active state,
'i.e. becomes visible in the client view. Normally, this is where subscriptions to controller events are set up.
Sub Activate() Implements ITpsViewActivation.Activate
'TODO: Add TpsViewtest7.Activate implementation
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
rd = ctrl.Rapid.GetRapidData(“T_ROB1”, “user”, “pos1”)
If Not rd Is Nothing Then
f = New FpRapidData(rd)
AddHandler f.Closed, AddressOf FpRapidDataClosed
f.ShowMe(Me)
Else
GTPUMessageBox.Show(Me, Nothing, “Couldn’t get RapidData”, “RapidData Access Problem”, Windows.Forms.MessageBoxIcon.Hand, Windows.Forms.MessageBoxButtons.OK)
End If
Catch ex As Exception
GTPUMessageBox.Show(Me, Nothing, ex.ToString, “Exception”, Windows.Forms.MessageBoxIcon.Hand, Windows.Forms.MessageBoxButtons.OK)
Finally
If Not rd Is Nothing Then
rd.Dispose()
rd = Nothing
End If
End Try
End Sub
Private Sub FpRapidDataClosed(ByVal sender As Object, ByVal e As EventArgs)
RemoveHandler f.Closed, AddressOf FpRapidDataClosed
If Not f Is Nothing Then
f.Dispose()
f = Nothing
End If
End Sub
End Class
Grettings “7”
