Visual Basic Const (Sabit) Example

Const_v1.vb

Public Class Form1
    Public Const deg As String = "İzmir Meslek Yüksekokulu"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Text = deg
    End Sub
End Class

Const_v2.vb

Public Class Form1
    Public Const okul_adi As String = "İzmir Meslek Yüksekokulu"
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ad, soyad As String
        Dim okul_no As Integer
        Me.Text = okul_adi
        okul_no = InputBox("Okul Numarasını Giriniz")
        TextBox1.Text = okul_no
        ad = TextBox2.Text
        soyad = TextBox3.Text
        TextBox4.Text = TextBox1.Text + "" + "" + "" + TextBox2.Text + "" + "" + TextBox3.Text
    End Sub
End Class