Public Class RptStampSingle
    Private Sub ReportHeaderBand1_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles ReportHeaderBand1.BeforePrint
        Dim oSTATE As String = GetCurrentColumnValue("STATE")
        Dim oGroupTypeID As Integer = GetCurrentColumnValue("GroupTypeID")
        Dim myRgbColor As Color = New Color()

        If oSTATE = "Genehmigt" Then
            myRgbColor = Color.FromArgb(109, 177, 51)
            XrPanel2.BorderColor = Color.Red 'myRgbColor
            XrLabel1.ForeColor = Color.Red 'myRgbColor
        Else

            XrPanel2.BorderColor = Color.Red
            XrLabel1.ForeColor = Color.Red
        End If
    End Sub
End Class