Crosshairs for Crossfire (27 Colors/3 Types)

**lucasheer715** · 09-18-2012

I thought i would make a tutorial on crosshairs :)

Now we will need the following:
5 Buttons
1 Textbox
2 Extra forms (Form 1 & Form2)
2 Timers | Timer1 = (Enabled & Interval = 1) |
| Timer2 = (Enabled & Interval = 1) |
2 combobox's
combobox1 will be colors
combobox2 will be types

First Paste This is Combobox1's collection..

Code:

Silver
Black
Red
Blue
Teal
Gray
Green
NeonGreen
OrangeRed
DarkBlue
DarkRed
Violet
Tan
DarkTan
Brown
DarkBrown
DarkGreen
LightGreen
Pink
DarkPink
HotPink
DarkTeal
Orange
DarkOrange
Yellow
YellowGreen
BrickRed

Second Paste This is Combobox2's collection..

Code:

Regular
Horizontal
Vertical

(Put this is form1_Load)

Code:

        ComboBox1.Text = "Silver"
        ComboBox2.Text = "Regular"
        TextBox1.Text = 90

(CAN DO IT URSELF OR PUT IN FORM1_LOAD)

Code:

button1.text = "Update Opacity"
button2.text = "+"
button3.text = "-"
button4.text = "Show"
button5.text = "Hide"

Double click button1 and put this :

Code:

        Form2.Opacity = TextBox1.Text
        Form3.Opacity = TextBox1.Text

Double click button2 and put this :

Code:

If TextBox1.Text > 90 Then
            TextBox1.Text = 0
        Else
            TextBox1.Text = TextBox1.Text + 10
        End If

Double Click Button3 And Put this :

Code:

If TextBox1.Text < 10 Then
            TextBox1.Text = 90
        Else
            TextBox1.Text = TextBox1.Text - 10
        End If

Double Click button4 And put this :

Code:

If ComboBox2.Text = "Regular" Then
            Form3.Hide()
            Form2.Hide()
            Form2.Show()
            Form3.Show()
        ElseIf ComboBox2.Text = "Horizontal" Then
            Form2.Hide()
            Form3.Hide()
            Form2.Show()
        ElseIf ComboBox2.Text = "Vertical" Then
            Form2.Hide()
            Form3.Hide()
            Form3.Show()
        End If

Double Click button5 and put this :

Code:

        Form2.Hide()
        Form3.Hide()

Open up your second form and do the following in properties:

Code:

size = (1, 50)
size(max) = (1, 50)
size(min) = (1, 50)
startPosition = (Centerscreen)
topmost = true
showicon = false
showinbar = false
opacity = (40%)

Open uo your third form and do the following in its properties:

Code:

size = (50, 1)
size(max) = (50, 1)
size(min) = (50, 1)
startPosition = (Centerscreen)
topmost = true
showicon = false
showinbar = false
opacity = (40%)

Finally open up your timer2 and put this:

Code:

        If Form2.Visible = True And Form3.Visible = True Then
            Form2.TopMost = True
            Form3.TopMost = True
        ElseIf Form2.Visible = True And Form3.Visible = False Then
            Form2.TopMost = True
        Else
            Form3.TopMost = True
        End If

**'Bruno** · 09-19-2012

This is not a tutorial, this is code snippets.

Also this is not the section for tutorials in case you did not realize. (Belongs to Programming Tutorials, moved)