文字立即消失

Question

我试图在群组框中显示一些文字结果。我的打印子通常遵循这种格式（Picture_Text是一个分组框）：

Sub pr_mg_c(ByRef var As Object, ByRef position As Single)
    Dim g As Graphics = Picture_text.CreateGraphics
    g.DrawString(var, ScreenFont, Brushes.Black, coord)
    g.Dispose()
End Sub

当我尝试显示结果时，控件中会弹出整个文本并立即消失。

提前致谢。