Разработайте проект, в котором цвет фона формы меняется путем задания их интенсивности через TextBox

Private Sub Text1_Change(Index As Integer)
BackColor = RGB(Val(Text1(0).Text), Val(Text1(1).Text), Val(Text1(2).Text))
End Sub
 
Private Sub Text2_Change()
Text3.Text = Val(Text2.Text) * Atn(1) / 45
End Sub
 
Private Sub Command1_Click()
a = Split(Text4.Text, ".")
Text5.Text = a(0) * 30 + a(1) / 2
End Sub

Private Sub Text1_Change(Index As Integer)
BackColor = RGB(Val(Text1(0).Text), Val(Text1(1).Text), Val(Text1(2).Text))
Text1(3).Text = BackColor
End Sub

Const GRAD = 0.0174532  ' коэффициент пересчета угла
'  GRAD=PI/180                      ' из градусов в радианы
Const PI = 3.14159265
Private Sub Form_Load()
Dim x As Single
Dim a As Single
   a = InputBox("введите x")
   x = a * GRAD
 Label1.Caption = Str(x) + "   рад   "
End Sub

Const R = 70            ' радиус циферблата часов
Const GRAD = 0.0174532  ' коэффициент пересчета угла
                        ' из градусов в радианы
Const PI = 3.14159265
 
Dim x0 As Integer, y0 As Integer    ' центр циферблата
Dim ahr As Integer                  ' положение стрелок (угол)
Dim amin As Integer
Dim asec As Integer
' инициализация формы
Private Sub Form_Initialize()
   x0 = R + 10
   y0 = R + 10
   ' положение стрелок
   ahr = 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6
   amin = 90 - Minute(Time) * 6
   asec = 90 - Second(Time) * 6
 
   Timer1.Interval = 1000   ' период сигналов таймера - 1 сек
   Timer1.Enabled = True    ' запуск таймера
   Form1.ScaleMode = 3
End Sub
' процедура вычерчивает вектор заданной длины из точки (x0,y0)
Sub Vector(x0 As Integer, y0 As Integer, _
           a As Integer, l As Integer)
   ' x0, y0 - начало вектора
   ' a - угол между осью X и вектором
   ' l - длина вектора
   Dim x, y As Integer  ' координаты конца вектора
   x = Round(x0 + l * Cos(a * GRAD))
   y = Round(y0 - l * Sin(a * GRAD))
   Line (x0, y0)-(x, y)
   Label1.Caption = Str(Abs(a - 90)) + "град." ' угол между осью "Y" и сек. стрелкой.
End Sub
 
' процедура рисует стрелки
Sub DrawClock()
   ' определение нового положения стрелок
   ahr = 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6
   amin = 90 - Minute(Time) * 6
  asec = 90 - Second(Time) * 6
  Cls
   Call Vector(x0, y0, ahr, R - 20)
   Call Vector(x0, y0, amin, R - 15)
   Form1.DrawWidth = 1
   Call Vector(x0, y0, asec, R - 7)
End Sub
' прорисовка текущих положений стрелок часов
Private Sub Timer1_Timer()
   Call DrawClock
End Sub

Dim chas As String ' часов
Dim minut As String ' минут
Dim secund As String ' секунд
Private Sub Form_load()
Dim ahr As Single, amin As Single, asec As Single
m:  chas = InputBox("Введите_часы")
   If Val(chas) < 0 Or Val(chas) > 12 Then
    a = MsgBox("Вводите от 0 до 11", vbExclamation, "Ошибка")
    GoTo m
   End If
m1: minut = InputBox("Введите_минуты")
   If Val(minut) < 0 Or Val(minut) > 59 Then
    a = MsgBox("Вводите от 0 до 59", vbExclamation, "Ошибка")
    GoTo m1
   End If
m2: secund = InputBox("Введите_секунды")
   If Val(secund) < 0 Or Val(secund) > 59 Then
    a = MsgBox("Вводите от 0 до 59", vbExclamation, "Ошибка")
    GoTo m2
   End If
  ahr = Val(chas) * 30
  amin = Val(minut) / 2
  asec = Val(secund) / 120
  Label1.Caption = Str(ahr + amin + asec) + "   град." ' угол между осью "Y" и час. стрелкой.
End Sub