How to show code.

The first puppy fails. :mad::mad::mad:
[vbcode]
Private Sub Command1_Click()
For index = 0 To Option1.Count - 1
If Option1(index).Value = True Then
Form2.Show
End If
Next
End Sub
[/vbcode]

vbcode Code:

Private Sub Command1_Click()
    For index = 0 To Option1.Count - 1
        If Option1(index).Value = True Then
            Form2.Show
        End If
    Next
End Sub

Code:

---

Private Sub Command1_Click()
    For index = 0 To Option1.Count - 1
        If Option1(index).Value = True Then
            Form2.Show
        End If
    Next
End Sub

---

PHP Code:

---

Private Sub Command1_Click()
    For index = 0 To Option1.Count - 1
        If Option1(index).Value = True Then
            Form2.Show
        End If
    Next
End Sub 


---

The correct tag is [highlight=vb]your code goes in here[/highlight]

vb Code:

Private Sub Command1_Click()
For index = 0 To Option1.Count - 1
If Option1(index).Value = True Then
Form2.Show
End If
Next
End Sub

It changed from vbcode a long time ago.. it now supports multiple languages, eg:

[HIGHLIGHT=vb] [/HIGHLIGHT]

[HIGHLIGHT=vb.net] [/HIGHLIGHT]

[HIGHLIGHT=sql] [/HIGHLIGHT]

...

Quote:

---

Originally Posted by Hack

The correct tag is [highlight=vb]your code goes in here[/highlight]

vb Code:

Private Sub Command1_Click()
For index = 0 To Option1.Count - 1
If Option1(index).Value = True Then
Form2.Show
End If
Next
End Sub

---

Gotcha!

Quote:

---

Originally Posted by si_the_geek

It changed from vbcode a long time ago.. it now supports multiple languages, eg:

[HIGHLIGHT=vb] [/HIGHLIGHT]

[HIGHLIGHT=vb.net] [/HIGHLIGHT]

[HIGHLIGHT=sql] [/HIGHLIGHT]

...

---

Cheers!

csharp Code:

this is my code

Quote:

---

Originally Posted by dee-u

csharp Code:

this is my code

---

csharp Code:

how to write code without opening a book?

java Code:

google.com

:sick::sick:

Me.Left=100

Code:

---

Me.Left=100

---

Me.Left=100

vb.net Code:

Me.Left=100

Vb Code:

Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
        ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
    End Sub

vb.net Code:

Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
        ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
    End Sub