เราต้องดูว่าจะให้ตัวไหนเป็นตัวแปรบ้าง จากตัวอย่างที่ให้มา ผมจะให้ ชื่อ control (Average) และ ค่า (5) เป็นตัวแปร ให้เขียนฟังก์ชันนี้ใน Module Public Function SetCon(ctl As Control, MyValue As Integer) If ctl > MyValue Then ctl.BackColor = RGB(255, 0, 0) 'พื้นสีแดง ctl.ForeColor = RGB(0, 0, 255) 'ตัวอักษรสีน้ำเงิน Else ctl.BackColor = RGB(255, 255, 255) 'พื้นสีขาว ctl.ForeColor = RGB(0, 0, 0) 'ตัวอักษรสีดำ End If End Function เมื่อจำไปใช้ ก็ใช้อย่างนี้ครับ Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) SetCon Me.Price, 5 End Sub

ขอบคุณครับอ.