*_/BEGENGKS\_*

Function dengan Microsoft Visual Studio 2010 A. FUNCTION DENGAN RETURN VALUE BERUPA ARRAY Desain form seperti dibawah ini: Public Class Form1      Private Function fstat(ByVal ParamArray args() As Object) As Single()         Dim hasil(3) As Single         Dim i As Integer         For i = 0 To UBound(args)          hasil(0) = hasil(0) + args(i)           If i = 0 Then           hasil(1) = args(i)            hasil(2) = args(i)            End If             If hasil(1) > args(i) Then hasil(1) = args(i)          If hasil(2) < args(i) Then hasil(2) = args(i)          Next i         Return hasil        End Function     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click         Dim statistik As Single() = fstat(21, 30, 5, 19, 33, 89, 4)         TextBox1.Text = statistik(0)         TextBox2.Text = statistik(1)         TextBox3.Text = statistik(2)       End Sub End Class

MDI FORM Form 1 seperti dibawah ini : Ubah Properti  IsMDIContainer  pada form 1  menjadi  true Gunakan Dock  pada propertis Untuk memindahkan tempat standar bar dikiri, kanan, atas atau tengah. Untuk Form 2 Codingnya Public Class Form2     Private Sub Form2_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load         Me .MdiParent = Form1     End Sub End Class Dan form 3 Public Class Form3     Private Sub Form3_Load( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles MyBase .Load         Me .MdiParent = Form1     End Sub End Class Setelah di Run pada windows kita pilih cascade hasilnya seperti ini: Dan horisontal seperti ini: Dan yang terakhir vertikal: Dan cascade : Coding pada form 1:: Public Class Form1     Private Sub Tugas1ToolStripMenuItem_Click(