Neki problemi, naslov je tesko smisliti

Code:
Dim k(1 To 24) As Integer
Private Sub Command1_Click()
Dim a As Integer
For a = LBound(k) To UBound(k)
ponovi:
DoEvents
Randomize Timer
k(a) = Int(Rnd * 12) + 1
If Triplikat(k(a), a) = True Then GoTo ponovi
Next a
End Sub
Private Function Triplikat(broj As Integer, pozicija As Integer) As Boolean
Dim b As Integer
Dim c As Integer
For b = 1 To pozicija - 1
If broj = k(b) Then c = c + 1
Next b
If c > 1 Then Triplikat = True
End Function

Code:
Option Explicit
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, _
ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Dim mFormRegion As Long
Private Const RGN_OR = 2
Private Const RGN_DIFF = 4

Private Sub Command1_Click()
Me.ScaleMode = vbPixels
    Dim w As Single, h As Single
    Dim edge As Single, topEdge As Single
    Dim mLeft, mTop
    Dim i As Integer
    Dim r As Long
    Dim outer As Long, inner As Long

    w = ScaleX(Width, vbTwips, vbPixels)
    h = ScaleY(Height, vbTwips, vbPixels)
        mFormRegion = CreateRectRgn(0, 0, 0, 0)

    edge = (w - ScaleWidth) / 2
    topEdge = h - edge - ScaleHeight

       outer = CreateRectRgn(0, 0, w, h)
       inner = CreateRectRgn(edge, topEdge, w - edge, h - edge)
       CombineRgn mFormRegion, outer, inner, RGN_DIFF

    For i = 0 To Me.Controls.Count - 1
        If Me.Controls(i).Visible = True Then
            mLeft = ScaleX(Me.Controls(i).Left, Me.ScaleMode, vbPixels) + edge
            mTop = ScaleX(Me.Controls(i).Top, Me.ScaleMode, vbPixels) + topEdge
            r = CreateRectRgn(mLeft, mTop, _
                mLeft + ScaleX(Me.Controls(i).Width, Me.ScaleMode, vbPixels), _
                mTop + ScaleY(Me.Controls(i).Height, Me.ScaleMode, vbPixels))
            CombineRgn mFormRegion, r, mFormRegion, RGN_OR
        End If
    Next

    SetWindowRgn hwnd, mFormRegion, True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SetWindowRgn hwnd, 0, False
    DeleteObject mFormRegion
End Sub

Code:
Option Explicit
Private Type NAS_POINT
    X As Long
    Y As Long
End Type

Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, _
ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Form_Load()
Dim Point(0 To 10) As NAS_POINT
Dim i As Integer
    
    ' definisemo tacke za crtanje objekta
    Point(0).X = 100: Point(0).Y = 80
    Point(1).X = 40: Point(1).Y = 80
    Point(2).X = 100: Point(2).Y = 20
    Point(3).X = 40: Point(3).Y = 20
    Point(4).X = 10: Point(4).Y = 50
    Point(5).X = 130: Point(5).Y = 50
    Point(6).X = 100: Point(6).Y = 20
    Point(7).X = 40: Point(7).Y = 80
    Point(8).X = 10: Point(8).Y = 50
    Point(9).X = 130: Point(9).Y = 50
    Point(10).X = 100: Point(10).Y = 80
    
    ' definisemo pocetne koordinate (pocetna tacka)
    CurrentX = 40
    CurrentY = 20
    
    ' crtamo objekat liniju po liniju
    ' na osnovu definisanih tacki
    For i = LBound(Point) To UBound(Point)
        Line -(Point(i).X, Point(i).Y)
    Next i
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim color As Long
Dim brush As Long
Dim trougao As Integer

'odredjujemo gde je kliknuto misem na osnovu x i y koordinate
If X > 39 + (Y - 20) And X < 101 - (Y - 20) And Y > 20 And Y < 50 Then trougao = 1 'gornji trougao
If X > 69 - (Y - 50) And X < 71 + (Y - 50) And Y > 50 And Y < 80 Then trougao = 2 ' donji trougao
If X > 39 - (Y - 20) And X < 41 + (Y - 20) And Y > 20 And Y < 50 Then trougao = 3 ' gornji levi
If X > 99 - (Y - 20) And X < 101 + (Y - 20) And Y > 20 And Y < 50 Then trougao = 4 ' gornji desni
If X > 9 + (Y - 50) And X < 71 - (Y - 50) And Y > 50 And Y < 80 Then trougao = 5 ' donji levi
If X > 69 + (Y - 50) And X < 131 - (Y - 50) And Y > 50 And Y < 80 Then trougao = 6 ' donji desni

Select Case trougao
Case 1 ' ako je kliknuto na trougao 1
color = RGB(255, 0, 0) ' oboji u crveno
Case 2 ' ako je kliknuto na trougao 2
color = RGB(0, 255, 0) ' oboji u zeleno
Case 3 ' ako je kliknuto na trougao 3
color = RGB(0, 0, 255) ' oboji u plavo
Case 4 ' ako je kliknuto na trougao 4
color = RGB(255, 255, 0) ' oboji u zuto
Case 5 ' ako je kliknuto na trougao 5
color = RGB(255, 0, 255) ' oboji u ljubicasto
Case 6 ' ako je kliknuto na trougao 6
color = RGB(0, 255, 255) ' oboji u zeleno-plavo
Case Else ' ako je kliknuto van objekta
Exit Sub
End Select
    brush = CreateSolidBrush(color) ' pravimo brush na osnovu odabrane boje
    SelectObject hdc, brush ' selektujemo objekat
    FloodFill hdc, X, Y, vbBlack ' popunjavamo objekat bojom tacku po tacku
                    ' unutar crnog okvira (linije kojima smo crtali objekat)
    DeleteObject brush ' brisemo kreitani brush
    Refresh ' refresujemo prikaz kako bi se prikazao obojen trougao
End Sub