Cara Buat Forms dari Visual Basic

Hasil Eksekusi

Imports System.Windows.Forms
Imports System.Drawing.Color

Public Class Form1
    Inherits Form

    Dim OLabel, OLabel2 As New Label
    'Dim OLabel0 As New Label
    Dim OTextBox As New TextBox

    Dim WithEvents OButton As New Button


    Public Shared Sub main()   'WAJIB dibuat.. menampilkan forms pertama kali
        Application.Run(New Form1)
    End Sub


    'Wajib punya event Load
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        OLabel.Text = " Nama:"
        OLabel.ForeColor = Blue
        OLabel.SetBounds(50, 100, 50, 20)
        Me.Controls.Add(OLabel)


        OLabel2.SetBounds(100, 125, 100, 20)
        Me.Controls.Add(OLabel2)

        'OLabel0.Text = "NPM:"
        'OLabel0.SetBounds(55, 150, 50, 20)
        'Me.Controls.Add(OLabel0)

        OTextBox.SetBounds(100, 100, 200, 100)
        Me.Controls.Add(OTextBox)

        OButton.Text = "Save"
        OButton.ForeColor = Red
        OButton.SetBounds(320, 95, 60, 30)
        Me.Controls.Add(OButton)


        Me.BackColor = AntiqueWhite
        Me.Width = 800 'atur ukuran lebar Rorms
        Me.Height = 600 ' atur ukuran tinggi Forms
        Me.Text = "Pertemuan13" 'membuat nama Forms
    End Sub


    Private Sub OButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OButton.Click
        OLabel2.Text = OTextBox.Text
    End Sub
End Class