Public Class login
    Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
        If nama.Text = "syahru" And password.Text = "123" Then
            TM_Syahru_Ichsan.Show()
            Me.Hide()
        Else
            MsgBox("Unknown ID")
            nama.Text = ""
            password.Text = ""
            nama.Focus()
        End If
    End Sub
End Class

Public Class Form1
    Sub BuatTable()
        list.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        list.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        list.View = View.Details
        list.GridLines = True
        list.FullRowSelect = True
    End Sub
    Sub IsiTable()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        list.Items.Add(lst)
    End Sub