Visual Basic

<br />
SetStyle(ControlStyles.SupportsTransparentBackColor, True)<br />

try {
    answer VB question
} catch(UnExpectedDinosaurException ude) {
    WTF
}

Luc Pattyn wrote:

try {
answer VB question
} catch(UnExpectedDinosaurException ude) {
WTF
}

VB

Try
answer VB 6 question
Catch ude As UnExpectedDinosaurException
WTF
End Try

thatraja |Chennai|India|

---

Brainbench certifications
Univotes are like kid's kisses don't reject it
Do what you want quickly because the Doomsday on 2012
My childhood story

Dave Kreskowiak wrote:

he's using VB6

Dim x As System.Drawing.Bitmap = imgMain.Image
x.MakeTransparent(dlgColor.Color)
imgMain.Image = x

Public Function TotalSub(ByVal j As Integer, ByVal diameter As String, ByVal thickness As String, ByVal material As String)
        Dim txtGG, txtYL As TextBox
        Dim b As String = ""
        Dim sum As Single = 0
        For Each ctrl As Control In frmQia.Controls
        System.Diagnostics.Debugger.WriteLine ("Type {0}, named {1}", ctrl.GetType().FullName,  ctrl.Name)
            If Not TypeOf ctrl Is TextBox Then Continue For
            For i = 1 To j
                If ctrl.Name = "txtTJGG" & i Then
                    txtGG = ctrl

I are Troll

For Each ctrl As Control In TabControl1.TabPages(0).Controls

   .... do checks and other stuff here

Next