Hello, this is my whole code:
Dim R5, R8
R5 = &h1F
R8 = ((R5 << 3) Or (R5 >> 2))
Console.WriteLine (R8)
Public Sub RGBTrueValues()
LabelRGBTV.Caption = "RGB( " & Str((HScrollRed.Value) * Fix(8.25806451612903)) & ", " & Fix((HScrollGreen.Value) * Fix(8.25806451612903)) & ", " & Str((HScrollBlue.Value) * Int(8.25806451612903)) & ")"
End Sub
Private Sub CommandExit_Click()
End
End Sub
Private Sub CommandRND_Click()
HScrollRed.Value = Int((Rnd * 31))
HScrollGreen.Value = Int((Rnd * 31))
HScrollBlue.Value = Int((Rnd * 31))
End Sub
Private Sub HScrollBlue_Change()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
BlueCount.Caption = HScrollBlue.Value
End Sub
Private Sub HScrollGreen_Change()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
GreenCount.Caption = HScrollGreen.Value
End Sub
Private Sub HScrollRed_Change()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
RedCount.Caption = HScrollRed.Value
End Sub
Private Sub HScrollRed_Scroll()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.2258064516129))
RedCount.Caption = HScrollRed.Value
End Sub
Private Sub HScrollGreen_Scroll()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
GreenCount.Caption = HScrollGreen.Value
End Sub
Private Sub HScrollBlue_Scroll()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
BlueCount.Caption = HScrollBlue.Value
End Sub
But I've added the thing you said and marks me "Compilation Error: Unvalid External Procedure", so please, help me on that...