Построить семейство N горизонтально расположенных квадратов заданного размера случайных цветов.

Option Explicit
Public Declare Function RoundRect Lib "gdi32" (ByVal hDC As Long, 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
Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal _
            hDC As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" _
            (ByVal hDC As Long, ByVal nIndex As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" _
            (ByVal hwnd As Long, ByVal hDC As Long) As Long
Public storona As Integer, N As Long
Public WidthF As Integer, Nreal As Integer
Public rv As Long
Public i As Integer, j As Integer, X1 As Long, Y1 As Long
Public retval As Long
Public hbrush As Long  ' new brush handle
Public holdbrush As Long  ' default brush handle
Private Const HORZRES = 8
Private Const VERTRES = 10
 
Sub main()
Dim Deskhwnd As Long
Dim DeskDc As Long
Dim Widthm As Long
Dim Heightm As Long
' Get the desktop descriptor
Deskhwnd = GetDesktopWindow
' Retrieving the Desktop Device Context
DeskDc = GetDC(Deskhwnd)
' Get the screen width
Widthm = GetDeviceCaps(DeskDc, HORZRES)
' Get the screen height
Heightm = GetDeviceCaps(DeskDc, VERTRES)
 
 
N = Int(InputBox("Number of squares "))
    storona = Int(InputBox("Square side size  (pixel)"))
    Nreal = Widthm \ storona
        If N * storona < Widthm Then GoTo Prd
        rv = MsgBox(N & " squares will not fit on the screen." & vbCrLf & " I can place  " _
            & Nreal & " Squares . " & "Place? ", vbCritical + vbYesNo, _
                "Error!")
                N = Nreal
        If rv = vbNo Then Exit Sub
Prd:
X1 = 0
Y1 = storona
j = 1
For i = 1 To N
    If j >= 15 Then j = 0
 
hbrush = CreateSolidBrush(QBColor(j))                   'create a solid brush
' Save the old brush to restore it after the end of the program
holdbrush = SelectObject(DeskDc, hbrush)
' Draw a rectangle filled with the set color
    retval = RoundRect(DeskDc, X1, 0, Y1, storona, 10, 5)
        X1 = X1 + storona
        Y1 = Y1 + storona
    j = j + 1
' Recovering an old brush
retval = SelectObject(DeskDc, holdbrush)
retval = DeleteObject(hbrush)  ' Destroying the brush
Next i
    MsgBox "The squares are drawn! ", vbOKOnly + vbInformation
' Freeing up resources
ReleaseDC GetDesktopWindow(), DeskDc
    End
End Sub

Option Explicit
 
Private Sub Command1_Click()
    End
End Sub
 
Private Sub Command2_Click()
Dim storona As Integer, N As Long
Dim WidthF As Integer, Nreal As Integer
Dim rv As Long
Dim i As Integer, j As Integer, X As Long, Y As Long
 
N = Int(InputBox("Количество квадратов"))
    storona = Int(InputBox("Размер стороны квадрата (pixel)"))
    Nreal = ScaleWidth \ storona
        If N * storona < ScaleWidth Then GoTo Prd
        rv = MsgBox(N & "квадратов не поместится на форме." & vbCrLf & " Могу разместить " _
            & Nreal & " Квадратов. " & "Разместить?", vbCritical + vbYesNo, _
                "Ошибка!")
                N = Nreal
        If rv = vbNo Then Exit Sub
Prd:
X = 0
Y = storona
j = 1
For i = 1 To N
    If j >= 15 Then j = 0
        Line (X, 0)-(Y, storona), QBColor(j), BF
        X = X + storona
        Y = Y + storona
    j = j + 1
Next i
End Sub
 
Private Sub Command3_Click()
Dim A() As String, StrA As String, StrB As String, Strsear As String
Dim i As Integer, retval As Long
Form2.Show
Form2.Text1.Text = ""
StrA = InputBox("Введите строку 'A'")
StrB = InputBox("Введите строку 'B'")
    A = Split(StrA, " ")                                      'Разбиваем строку
        For i = 0 To UBound(A)
            Strsear = A(i)
            retval = InStr(1, StrB, Strsear)
            If retval > 0 Then
            Form2.Text1.Text = Form2.Text1.Text & Strsear & vbCrLf
            End If
            Next i
            
End Sub
 
Private Sub Form_Load()
Command1.Caption = "Выход"
Command2.Caption = "Квадраты"
Command3.Caption = "Строки"
    Form1.ScaleMode = 3
End Sub

Option Explicit
Public Declare Function RoundRect Lib "gdi32" (ByVal hDC As Long, 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
Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal _
            hDC As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function GetDeviceCaps Lib "gdi32" _
            (ByVal hDC As Long, ByVal nIndex As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" _
            (ByVal hwnd As Long, ByVal hDC As Long) As Long
Public Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As Msg, _
            ByVal hwnd As Long, ByVal wMsgFilterMin As Long, _
            ByVal wMsgFilterMax As Long) As Long
             
Public Type POINTAPI
    x As Long
    y As Long
End Type
            
 Public Type Msg
    hwnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
 
Private Const WM_RBUTTONDOWN = &H204
            
Public N1 As String, storona1 As String
Public storona As Integer, N As Long
Public WidthF As Integer, Nreal As Integer
Public rv As Long
Public i As Integer, j As Integer, X1 As Long, Y1 As Long
Public retval As Long
Public hbrush As Long  ' new brush handle
Public holdbrush As Long  ' default brush handle
Private Const HORZRES = 8
Private Const VERTRES = 10
 
Sub main()
Dim Deskhwnd As Long
Dim DeskDc As Long
Dim Widthm As Long
Dim Heightm As Long
Dim wMsg As Msg
' Get the desktop descriptor
Deskhwnd = GetDesktopWindow
' Retrieving the Desktop Device Context
DeskDc = GetDC(Deskhwnd)
' Get the screen width
Widthm = GetDeviceCaps(DeskDc, HORZRES)
' Get the screen height
Heightm = GetDeviceCaps(DeskDc, VERTRES)
 
Do Until IsNumeric(N1)
N1 = InputBox("Number of squares ")
Loop
    N = Int(N1)
Do Until IsNumeric(storona1)
    storona1 = InputBox("Square side size  (pixel)")
Loop
    storona = Int(storona1)
    Nreal = Widthm \ storona
        If N * storona < Widthm Then GoTo Prd
        rv = MsgBox(N & " squares will not fit on the screen." & vbCrLf & " I can place  " _
            & Nreal & " Squares . " & "Place? ", vbCritical + vbYesNo, _
                "Error!")
                N = Nreal
        If rv = vbNo Then GoTo Eitpr
Prd:
X1 = 0
Y1 = storona
j = 1
For i = 1 To N
    If j >= 15 Then j = 0
 
hbrush = CreateSolidBrush(QBColor(j))                   'create a solid brush
' Save the old brush to restore it after the end of the program
holdbrush = SelectObject(DeskDc, hbrush)
' Draw a rectangle filled with the set color
    retval = RoundRect(DeskDc, X1, 0, Y1, storona, 10, 5)
        X1 = X1 + storona
        Y1 = Y1 + storona
    j = j + 1
' Recovering an old brush
retval = SelectObject(DeskDc, holdbrush)
retval = DeleteObject(hbrush)  ' Destroying the brush
Next i
 
         Do While GetMessage(wMsg, 0&, 0&, 0&) <> -1
    If wMsg.message = WM_RBUTTONDOWN Then
    MsgBox "The square are drawn! ", vbOKOnly + vbInformation
    Exit Do
    End If
         Loop
 
Eitpr:
' Freeing up resources
ReleaseDC GetDesktopWindow(), DeskDc
End Sub

GetMessage(wMsg, Deskhwnd, 0&, 0&) <> -1