Public Class Form1
    Private Sub Button1_Click Handles Button1.Click
        'Графика
        Using CG = Me.CreateGraphics
             CG.DrawBezier, 0, 0, 100, 100, 600, 600, 0, 400)
             CG.DrawBezier, 0, 0, 600, 600, 100, 100, 400, 0)
             CG.DrawLine, 0, 0, 600, 600)
        End Using
        'Система
        MessageBox.Show("User name: " + My.User.Name.ToString + vbCrLf + _
                        "Screen name: " + My.Computer.Screen.DeviceName.ToString + vbCrLf + _
                        "Ports count: " + My.Computer.Ports.SerialPortNames.Count.ToString, _
                         "Box Caption", MessageBoxButtons.OK, MessageBoxIcon.Error)
        'Сеть
        Using WC As New System.Net.WebClient
            WC.DownloadFile
        End Using
    End Sub
    End Class