LOGIN FORM:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

If TextBox1.Text = "psg" And TextBox2.Text = "123" Then
MsgBox("login success")
Else
MsgBox("Invalid username or password")

End If
End Sub
End Class

FRUIT BILLING:

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If CheckBox1.Checked = True Then
TextBox4.Text = Val(Label6.Text) * Val(TextBox1.Text)
End If
If CheckBox2.Checked = True Then
TextBox5.Text = Val(Label7.Text) * Val(TextBox2.Text)
End If
If CheckBox3.Checked = True Then
TextBox6.Text = Val(Label8.Text) * Val(TextBox3.Text)
End If
TextBox7.Text = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text)

End Sub
End Class
FEEDBACK FORM:

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ((RadioButton1.Checked = False) And (RadioButton2.Checked = False) And
(RadioButton3.Checked = False)) Then
MsgBox("choose any option in lecture was structed and well organised")
ElseIf ((RadioButton4.Checked = False) And (RadioButton5.Checked = False) And
(RadioButton6.Checked = False)) Then
MsgBox("choose any option in learning material was accesible")
Else
MsgBox("submitted successfully")

End If
End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles

TextBox1.TextChanged
If TextBox1.Text = " " Then
MsgBox("name must be entered")
TextBox1.Clear()
TextBox1.Focus()
ElseIf Not Regex.IsMatch(TextBox1.Text, "^[a-z A-Z\ S]*$") Then
MsgBox("name should be character only")
 TextBox1.Clear()
TextBox1.Focus()

End If
End Sub
End Class

FONT COLOR:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If FontDialog1.ShowDialog = DialogResult.OK Then

End If
TextBox1.ForeColor = FontDialog1.Color
TextBox1.Font = FontDialog1.Font
End Sub

End Class

MOUSE BUTTON:

Public Class Form1

Private Sub Button1_MouseHover(sender As Object, e As EventArgs) Handles

Button1.MouseHover
Button1.BackColor = Color.Yellow
End Sub

Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles

Button1.MouseLeave
Button1.BackColor = Color.Green
End Sub
End Class

LISTBOX:

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListBox1.Items.Add("Pen")
ListBox1.Items.Add("Pencil")
ListBox1.Items.Add("Eraser")
ListBox1.Items.Add("Ruler")
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

Handles ListBox1.SelectedIndexChanged
TextBox1.Text = ListBox1.SelectedItem.ToString()
If ListBox1.SelectedItem.ToString() = "Pen" Then
TextBox2.Text = 10
ElseIf ListBox1.SelectedItem.ToString() = "Pencil" Then
TextBox2.Text = 5
ElseIf ListBox1.SelectedItem.ToString() = "Eraser" Then
TextBox2.Text = 5
Else
TextBox2.Text = 15
 End If
End Sub
End Class

TIMER QUIZ:

Public Class Form1

Dim score As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
TextBox1.Text = CStr(CDbl(TextBox1.Text) + 1)
score = 0
If RadioButton2.Checked = True Then
score = score + 1
End If
If TextBox1.Text = 100 Then
Timer1.Stop()
MsgBox("Time is over")
MsgBox("Score is " & score)
Me.Close()
End If
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Timer1.Start()
End Sub
End Class

DRAWING SHAPES :

Public Class Form1

Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles
ExitToolStripMenuItem.Click
Me.Close()

End Sub

Private Sub LineToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles

LineToolStripMenuItem.Click
Dim mygraphics As Graphics = PictureBox1.CreateGraphics
Dim mypen As Pen
mypen = New Pen(Brushes.DarkGreen, 20)
mygraphics.DrawLine(mypen, 50, 110, 160, 140)
End Sub

Private Sub CircleToolStripMenuItem_Click(sender As Object, e As EventArgs)

Handles CircleToolStripMenuItem.Click
Dim mygraphics As Graphics = PictureBox1.CreateGraphics
Dim mypen As Pen
mypen = New Pen(Drawing.Color.DarkCyan, 20)
mygraphics.DrawEllipse(mypen, 150, 80, 160, 50)
End Sub

Private Sub RectanglToolStripMenuItem_Click(sender As Object, e As EventArgs)

Handles RectanglToolStripMenuItem.Click
Dim mygraphics As Graphics = PictureBox1.CreateGraphics
Dim mypen As Pen
 mypen = New Pen(Drawing.Color.DarkTurquoise, 20)
mygraphics.DrawRectangle(mypen, 300, 150, 100, 100)
End Sub
End Class

CUT,COPY,PASTE :

Public Class Form1

Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles
ToolStripButton1.Click
RichTextBox1.Text = ""
End Sub

Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles

ToolStripButton2.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
RichTextBox1.Text =
My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
End If
End Sub

Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles

ToolStripButton3.Click
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName,
RichTextBox1.Text, False)
End If
End Sub

Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles

ToolStripButton4.Click
RichTextBox1.Cut()
End Sub

Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles

ToolStripButton5.Click
RichTextBox1.Copy()
End Sub

Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles

ToolStripButton6.Click
RichTextBox1.Paste()
End Sub

Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles

ToolStripButton7.Click
RichTextBox1.SelectAll()
End Sub

Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles

ToolStripButton8.Click
RichTextBox1.Undo()
End Sub

Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles

ToolStripButton9.Click
RichTextBox1.Redo()
End Sub
End Class