VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   2  'CenterScreen
   Begin VB.PictureBox Picture1 
      Height          =   3135
      Left            =   0
      ScaleHeight     =   205
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   301
      TabIndex        =   0
      Top             =   0
      Width           =   4575
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   0
      Top             =   0
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ts As Long 'Объявление переменных
Dim sh As Long
Dim sw As Long
Dim s As Integer

Private Sub Form_Load()
Form1.Height = 3600
Form1.Width = 4800
Me.Picture1.Left = 0
Me.Picture1.Top = 0
Me.Picture1.Width = Form1.Width - 105
Me.Picture1.Height = Form1.Height - 405
Me.Picture1.AutoRedraw = False
Form1.AutoRedraw = False
End Sub

Private Sub Form_Resize()
If Form1.WindowState = 1 Then Exit Sub
Me.Picture1.Width = Form1.Width - 105
Me.Picture1.Height = Form1.Height - 405
End Sub

Private Sub Picture1_Click()
Unload Me
End Sub

Private Sub Picture1_Paint()
Picture1.ScaleMode = vbPixels 'Единицу измерения устанавливаем равной пикселу
sh = Picture1.ScaleHeight 'Получаем кол-во пикселов по высоте
sw = Picture1.ScaleWidth 'Получаем кол-во пикселов по ширине
Picture1.DrawStyle = vbInvisible 'Устанавливаем стиль заливки и рисования
Picture1.FillStyle = vbFSSolid
Picture1.BackColor = RGB(r, g, b)

If Fix(s) = 0 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, g, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 1 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, g, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 2 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, g, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 3 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, g, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 4 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(255 - (ts * 255) / sh, g, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 5 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(255 - (ts * 255) / sw, g, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 6 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB((ts * 255) / sh, g, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 7 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB((ts * 255) / sw, g, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 8 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, 255 - (ts * 255) / sh, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 9 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, 255 - (ts * 255) / sw, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 10 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, (ts * 255) / sh, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 11 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, (ts * 255) / sw, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 12 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, g, 255 - (ts * 255) / sh)  'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 13 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, g, 255 - (ts * 255) / sw)  'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 14 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, g, (ts * 255) / sh) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 15 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, g, (ts * 255) / sw) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 16 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(255 - (ts * 255) / sh, 255 - (ts * 255) / sh, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 17 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(255 - (ts * 255) / sw, 255 - (ts * 255) / sw, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 18 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB((ts * 255) / sh, (ts * 255) / sh, b) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 19 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB((ts * 255) / sw, (ts * 255) / sw, b) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 20 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(255 - (ts * 255) / sh, g, 255 - (ts * 255) / sh) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 21 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(255 - (ts * 255) / sw, g, 255 - (ts * 255) / sw) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 22 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB((ts * 255) / sh, g, (ts * 255) / sh) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 23 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB((ts * 255) / sw, g, (ts * 255) / sw) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 24 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, 255 - (ts * 255) / sh, 255 - (ts * 255) / sh) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 25 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, 255 - (ts * 255) / sw, 255 - (ts * 255) / sw) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 26 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(r, (ts * 255) / sh, (ts * 255) / sh) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 27 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(r, (ts * 255) / sw, (ts * 255) / sw) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 28 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB(255 - (ts * 255) / sh, 255 - (ts * 255) / sh, 255 - (ts * 255) / sh) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 29 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB(255 - (ts * 255) / sw, 255 - (ts * 255) / sw, 255 - (ts * 255) / sw) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 30 Then
For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
Picture1.FillColor = RGB((ts * 255) / sh, (ts * 255) / sh, (ts * 255) / sh) 'Закрашиваем
Picture1.Line (-1, ts)-(sw, ts), , B
For i = 1 To v
Next
Next ts
End If

If Fix(s) = 31 Then
For ts = 0 To sw 'Запускаем цикл закраски по вертикали
Picture1.FillColor = RGB((ts * 255) / sw, (ts * 255) / sw, (ts * 255) / sw) 'Закрашиваем
Picture1.Line (ts, -1)-(ts, sh), , B
For i = 1 To v
Next
Next ts
End If

End Sub

Private Sub Form_Paint()
'Form1.ScaleMode = vbPixels 'Единицу измерения устанавливаем равной пикселу
'sh = Form1.ScaleHeight 'Получаем кол-во пикселов по высоте
'sw = Form1.ScaleWidth 'Получаем кол-во пикселов по ширине
'Form1.DrawStyle = vbInvisible 'Устанавливаем стиль заливки и рисования
'Form1.FillStyle = vbFSSolid
'Form1.BackColor = RGB(r, g, b)

'If Fix(s) = 0 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, g, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 1 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, g, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 2 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, g, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 3 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, g, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 4 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(255 - (ts * 255) / sh, g, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 5 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(255 - (ts * 255) / sw, g, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 6 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB((ts * 255) / sh, g, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 7 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB((ts * 255) / sw, g, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 8 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, 255 - (ts * 255) / sh, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 9 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, 255 - (ts * 255) / sw, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 10 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, (ts * 255) / sh, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 11 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, (ts * 255) / sw, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 12 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, g, 255 - (ts * 255) / sh)  'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 13 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, g, 255 - (ts * 255) / sw)  'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 14 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, g, (ts * 255) / sh) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 15 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, g, (ts * 255) / sw) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 16 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(255 - (ts * 255) / sh, 255 - (ts * 255) / sh, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 17 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(255 - (ts * 255) / sw, 255 - (ts * 255) / sw, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 18 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB((ts * 255) / sh, (ts * 255) / sh, b) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 19 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB((ts * 255) / sw, (ts * 255) / sw, b) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 20 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(255 - (ts * 255) / sh, g, 255 - (ts * 255) / sh) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 21 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(255 - (ts * 255) / sw, g, 255 - (ts * 255) / sw) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 22 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB((ts * 255) / sh, g, (ts * 255) / sh) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 23 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB((ts * 255) / sw, g, (ts * 255) / sw) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 24 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, 255 - (ts * 255) / sh, 255 - (ts * 255) / sh) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 25 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, 255 - (ts * 255) / sw, 255 - (ts * 255) / sw) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 26 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(r, (ts * 255) / sh, (ts * 255) / sh) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 27 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(r, (ts * 255) / sw, (ts * 255) / sw) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 28 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB(255 - (ts * 255) / sh, 255 - (ts * 255) / sh, 255 - (ts * 255) / sh) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 29 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB(255 - (ts * 255) / sw, 255 - (ts * 255) / sw, 255 - (ts * 255) / sw) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 30 Then
'For ts = 0 To sh 'Запускаем цикл закраски по горизонтали
'Form1.FillColor = RGB((ts * 255) / sh, (ts * 255) / sh, (ts * 255) / sh) 'Закрашиваем
'Form1.Line (-1, ts - 1)-(sw, ts + 1), , B
'For i = 1 To 10000
'Next
'Next ts
'End If

'If Fix(s) = 31 Then
'For ts = 0 To sw 'Запускаем цикл закраски по вертикали
'Form1.FillColor = RGB((ts * 255) / sw, (ts * 255) / sw, (ts * 255) / sw) 'Закрашиваем
'Form1.Line (ts - 1, -1)-(ts - 1, sh), , B
'For i = 1 To 10000
'Next
'Next ts
'End If
Exit Sub
End Sub

Private Sub Timer1_Timer()
r = Rnd * 225
g = Rnd * 225
b = Rnd * 225
s = Rnd * 31
Form1.Caption = s & " " & Fix(s) & " " & Int(s)
Picture1.Refresh
Form1.Refresh
End Sub