Prueba

Una propiedad no puede modificarse

¿Es un menú desplegable?

Dim a, b as Double
if a<b {
MsgBox( A es menor )
else
MsgBox(B es menor)
End If

No necesita de Items para agregar opciones

Private Sub Printform()
Cursor.Current = Cursors.WaitCursor
With Me.PrintForm1
.PrintAction = Printing.PrintAction.PrintToPreview
.PrinterSettings.DefaultPageSettings.Landscape = True
.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Call Printform()
End Sub

Dim contador As Integer
If (TextBox1.Text = "machol") And (TextBox2.Text = "55555") Then
ProgressBar1.Value = 0.0
ProgressBar1.Maximum = 100
For contador = 1 To 100
contador = contador + 1
ProgressBar1.Value = contador
Next
If ProgressBar1.Value = ProgressBar1.Maximum Then
MsgBox("Acceso Autorizado")
Form2.Show()
End If
Else
ProgressBar1.Value = 0.0
ProgressBar1.Maximum = 100
For contador = 1 To 100
contador = contador + 1
ProgressBar1.Value = contador
Next
MsgBox("Usuario Incorrecto")
TextBox1.Clear()
TextBox2.Clear()
ProgressBar1.Value = 0.0
End If

Una propiedad puede modificarse

En las propiedades no se pueden hacer cambios