首先设置Label1的字体为22，然后把Form2拉伸与Label1大小一致，
最后如何用代码或者用设置Form2及Label1的某些属性使Form2随Label1控件一起长变短？
如使Label1控件分别显示以下数字时，Form2随Label1控件一起长变短，且能显示完全。
Form2.Label1.Text = "今天网络不通。"
Form2.Label1.Text = "今天股市有上涨的态势，可以考虑买进。"

[此贴子已经被作者于2017-7-7 07:23编辑过]

  Label1.AutoSize = False
 Label1.Dock = DockStyle.Fill

收到的鲜花

• HVB6 于 2017-07-19 12:02 送鲜花  7朵   附言：好文章

以下是Form1的按钮代码，点击 Form1的按钮后，显示 Form2和其中的 Form2.Label1，但 Form2的长不变，导致 Form2.Label1的字显示不全，何因？谢谢。
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.Label1.AutoSize = False（在Label1的属性中的AutoSize，也设置为 False）
        Form2.Label1.Dock = DockStyle.Fill（在Label1的属性中的Dock，无 DockStyle.Fill）
        Form2.Label1.Text = "今天股市有上涨的态势，可以考虑买进。"
    End Sub
End Class
 Form2的代码：
Public Class Form2
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.AutoSize = False
        Label1.Dock = DockStyle.Fill
    End Sub
End Class

加一句：Form2.width=?

收到的鲜花

• HVB6 于 2017-07-19 12:02 送鲜花  7朵   附言：好文章

form2.width=Screen.PrimaryScreen.Bounds.Width

收到的鲜花

• HVB6 于 2017-07-19 12:01 送鲜花  7朵   附言：好文章

窗体Form1的代码：
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.Label1.AutoSize = False  '（在Label1的属性中的AutoSize，也设置为 False）
        Form2.Label1.Dock = DockStyle.Fill  '（在Label1的属性中的Dock，无 DockStyle.Fill）
        Form2.Width = Screen.PrimaryScreen.Bounds.Width   ‘加此行代码后，  Form2.Label1的长度和计算机的屏幕长度一致，可否进一步优化？即 Form2.Label1的长度能完全显示就行。谢谢。
        Form2.Label1.Text = "今天股市有上涨的态势，可以考虑买进。"
    End Sub
End Class

原来你是这个意思啊
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim mf As New Font("黑体", 30)
        With Form2
            .Label1.AutoSize = True
            .Label1.Text = "今天股市有上涨的态势，可以考虑买进。"
            .Label1.Font = mf
            .Width = .Label1.Width + 10
            .Label1.Left = 0
            .Show()
        End With
    End Sub

收到的鲜花

• HVB6 于 2017-07-19 15:43 送鲜花  7朵   附言：好文章

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.Activate()
        Form2.Label1.Text = "今天股市有上涨的态势，可以考虑买进"
        Form2.AutoSize = True
        Form2.Label1.Dock = DockStyle.Fill
    End Sub

End Class

form2就设置了一个文本内容

Form.AutoSize = True
Form.Label1.Dock = DockStyle.Fill