C:\FreeBASIC\lib\win32/libsupc++.a(eh_throw.o):eh_throw.cc:(.text+0xfa): undefined reference To `_Unwind_SjLj_Resume_or_Rethrow'
 

Type QStatus
        Handle         As HANDLE
        Declare Property Text(Byval index As Integer,Byval value As String)
        Declare Sub Create(wDlg As HWND,idc As Integer)
End Type

Property QStatus.Text(Byval index As Integer,Byval value As String)
        SendMessage(This.Handle,SB_SETTEXT,index,cast(LPARAM,Strptr(value)))
End Property

Sub QStatus.Create(wDlg As HWND,idc As Integer)
        this.Handle=GetDlgItem(wDlg,idc)
End Sub
 

Sub StatusBar_Setup(hDlg As HWND)
   Dim RCoord(5) As Integer
   Dim RW(4) As Integer
   Dim k As Integer
       
        ST.Create(hDlg,IDC_SBR1)
        RW(0)=75
        RW(1)=180
        RW(2)=150
        RW(3)=300
        RW(4)=120

          RCoord(0) = RW(0)               
          RCoord(1) = RW(0)+RW(1)
          RCoord(2) = RW(0)+RW(1)+RW(2)
          RCoord(3) = RW(0)+RW(1)+RW(2)+RW(3)
          RCoord(4) = RW(0)+RW(1)+RW(2)+RW(3)+RW(4)
          RCoord(5) = -1               
   SendMessage(ST.Handle, SB_SETPARTS, 6, cast(LPARAM,@RCoord(0)))
   ST.Text(0)="1:1"  <------this Is the code generating the Error message

End Sub

Type QStatus
        Handle         As Integer
        Declare Property Text(Byval index As Integer, Byref value As String)
End Type

Property QStatus.Text(Byval index As Integer, Byref value As String)

End Property

Dim ST As QStatus

ST.Text(0)="1:1"