Visual Basic

1. Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
   
2. Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
   
3. Keep the subject line brief, but descriptive. eg "File Serialization problem"
   
4. Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
   
5. If you are posting source code with your question, place it inside <pre></pre> tags, or click the "Ignore HTML tags in this message" check box.
   
6. Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
   
7. Please do not post links to your question in one forum from another, unrelated forum (such as the lounge). It will be deleted.
   
8. Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
   
9. If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
   
10. No advertising or soliciting.
    
11. We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

    For Each c As Control In MyMdiParent.Controls
        If TypeOf c Is MdiClient Then
            Dim client As MdiClient = DirectCast(c, MdiClient)
            client.Location = New Point(...)
            Exit For
        End If
    Next

Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click 
        Try 
            strIOPath = ucFile.TxtCode.Text 
            If strIOPath = "" Then 
                ShowMessage("No File For This Transaction") 
                Exit Sub 
            End If 
            If IO.File.Exists(strIOPath) Then 
                File.Open(strIOPath, FileMode.Create) 
            Else 
                ShowMessage("File Not Found") 
            End If 
        Catch ex As Exception 
            ShowMessage(ex.Message) 
        End Try 
End Sub 

    Public Sub New(ByVal host As System.Windows.Forms.Form)
        Form2 = host
        Me.AddNewTextBox()
    End Sub