Индикатор

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As _
Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 _
As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor _
As Long) As Long
Private Declare Function FrameRgn Lib "gdi32" (ByVal hdc As Long, _
ByVal hrgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, ByVal _
nHeight As Long) As Long
Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal _
hrgn As Long, ByVal hBrush As Long) As Long
 
Public Sub Command1_Click()
Form2.Visible = True
Form1.Visible = False
End Sub
 
Private Sub Form_Load()
Me.Combo4.AddItem "êðàñíûé"
Me.Combo4.AddItem "çåëåíûé"
Me.Combo4.AddItem "ñèíèé"
 
End Sub
 
Public Sub Option2_Click()
   Dim rComb As Long, rnew As Long
   Dim brFrame As Long, brPaint As Long
Form2.Cls
 
   rComb = CreateRoundRectRgn(75, 67, 170, 121, 0, 0)
  
   If Combo4.ListIndex = -1 Then
   brPaint = CreateSolidBrush(vbRed)
   Picture1.BackColor = vbRed
   ElseIf Combo4.ListIndex = 1 Then
   brPaint = CreateSolidBrush(vbGreen)
   Picture1.BackColor = vbGreen
   ElseIf Combo4.ListIndex = 2 Then
   brPaint = CreateSolidBrush(vbBlue)
   Picture1.BackColor = vbBlue
   End If
   brFrame = CreateSolidBrush(1)
   FillRgn Form2.hdc, rComb, brPaint
   FrameRgn Form2.hdc, rComb, brFrame, 1, 2
   
End Sub
 
Private Sub Option1_Click()
   Dim rComb As Long, rnew As Long
   Dim brFrame As Long, brPaint As Long
Form2.Cls
 
   rComb = CreateRoundRectRgn(120, 37, 174, 111, 0, 0)
      If Combo4.ListIndex = -1 Then
   brPaint = CreateSolidBrush(vbRed)
   Picture1.BackColor = vbRed
   ElseIf Combo4.ListIndex = 1 Then
   brPaint = CreateSolidBrush(vbGreen)
   Picture1.BackColor = vbGreen
   ElseIf Combo4.ListIndex = 2 Then
   brPaint = CreateSolidBrush(vbBlue)
   Picture1.BackColor = vbBlue
   End If
   brFrame = CreateSolidBrush(1)
   FillRgn Form2.hdc, rComb, brPaint
   FrameRgn Form2.hdc, rComb, brFrame, 1, 2
  
End Sub
код 2 формы:
Private Sub Form_DblClick()
Form1.Visible = True
Form2.Visible = True
End Sub
 
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Dim q As Integer
Dim w As Integer
Dim WithEvents tmrTimer As Timer
Dim WithEvents cmdStart As CommandButton
Dim WithEvents cmdStop As CommandButton
Private Sub cmdStart_Click()
tmrTimer.Enabled = True
cmdStart.Enabled = False
cmdStop.Enabled = True
End Sub
Private Sub cmdStop_Click()
tmrTimer.Enabled = False
cmdStop.Enabled = False
cmdStart.Enabled = True
End Sub
Private Sub Form_Load()
Set tmrTimer = Me.Controls.Add("VB.Timer", "tmrTimer")
tmrTimer.Interval = 100
tmrTimer.Enabled = False
Set cmdStart = Me.Controls.Add("VB.CommandButton", "cmdStart")
Set cmdStop = Me.Controls.Add("VB.CommandButton", "cmdStop")
cmdStart.Visible = True: cmdStart.Caption = "Start"
cmdStop.Visible = True: cmdStop.Caption = "Stop"
cmdStop.Move 0, cmdStart.Height
cmdStop.Enabled = False
Me.Width = Me.Height
Me.Scale (-300, -300)-(300, 300)
 
Me.AutoRedraw = True
End Sub
Private Sub Redraw()
q = Val(Text1)
w = Val(Text2)
Dim X As Double, Y As Double, b As Integer
Dim a(1 To 2) As Byte, i As Integer
Show
For i = 1 To 2
a(i) = Int(Rnd * (q))
Next i
b = a(1)
Me.Cls
Me.FillStyle = 0
Me.FillColor = vbYellow
Me.Line (-150, q)-(-90, b), , B
Me.Refresh
End Sub
 
Private Sub tmrTimer_Timer()
Redraw
End Sub