Imports System.Data.SqlClient
Public Class Form1
Dim connstr As String = "Data Source=.;Initial Catalog=mydata;User ID=sa;Password=sa"
Dim txtusername As TextBox = New TextBox()
Dim txtpassword As TextBox = New TextBox()
WithEvents btnlogin As Button = New Button()
WithEvents dgv As DataGridView = New DataGridView()
Dim tc As TabControl = New TabControl()
Dim tp1 As TabPage = New TabPage("1")
Dim tp2 As TabPage = New TabPage("2")
Dim tp3 As TabPage = New TabPage("3")
Dim tp4 As TabPage = New TabPage("4")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink
Me.MaximizeBox = False
Me.AcceptButton = btnlogin