This works in VS2013 net FrameWork4.5 Put declare and constant at top of class Usage put rest of code in Form_Load as in example code.

Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As IntPtr, ByVal wMsg As UInt32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

Private Const lB_SETITEMHEIGHT As Integer = &H1A0

Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim ItemHeight As Integer = Me.Font.Height + 4
SendMessageByNum(CheckedListBoxControl.Handle, lB\_SETITEMHEIGHT, CType(0, IntPtr), CType(ItemHeight, IntPtr))

End Sub

Douglas Peterson Senior Application Developer / Chief Technical Officer The Professional PC / ERIC Systems

Thanks Chris, It works now!

The system will not let me change my password! Forgot password, got temporary password, Logged in using temp password, went to settings, attempt to change password, says email address is all ready being used and will NOT CHANGE MY PASSWORD! Message "The email you supplied has already been registered. Please choose another, or try retrieving your password if that is your member email." This is my account! all I what to do is change my password! Why? What am I doing wrong? Thank You

When using IIF both the true and the false portions are evaluated before the IIF test is done. using the If construct only the true portion is evaluated after the IF test is done and the false portion is never evaluated if the test is true.

Just to be clear you want the publish version that is stored in the manifest from the publish page in project properties. versus the assembly version from the assembly information sub form on the application page. all the code you have tried the results come from the assembly information.

What do you want the text in the label to look like? To Get This "Ver. 5.1.2 Rev. 3" Try like this; Dim avi As System.Version = System.Reflection.Assembly.GetExecutingAssembly.GetName.Version lblVersion.Text = "Ver. " & Format(avi.Major, "###0").TrimEnd & "." _ & Format(avi.Minor, "###0").TrimEnd & "." & Format(avi.Build, "###0").TrimEnd _ & " Rev. " & Format(avi.Revision, "###0") Of course this is not the publish version (just saw last post)