下繪一橫紅線 ( 資料來源 ) Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim g As Graphics = e.Graphics Dim redpen As Pen = New Pen(Color.Red, 3) g.DrawLine(redpen, 0, 90, 285, 90) End Sub顏色可參考下