显示表头三角图标

自己先准备小三角的图片，我是从DATAgrid上截图的

Dim n as integer
Private Sub MSHFlexGrid1_RowColChange()
'鼠标按下时显示表头三角图标，并且是可移动的
If n <> MSHFlexGrid1.MouseRow Then
    MSHFlexGrid1.Row = n
    MSHFlexGrid1.Col = 0
    Set MSHFlexGrid1.CellPicture = LoadPicture()
    End If
   n = MSHFlexGrid1.MouseRow
    MSHFlexGrid1.Row = n
    MSHFlexGrid1.Col = 0
Set MSHFlexGrid1.CellPicture = LoadPicture("F:\DSRdatabase\images\tri.jpg") 
End Sub
--------------------编程问答-------------------- 咳咳，分数不够了，大神啊，我有一个最简单的问题想问问，怎样实现一个角度转换的问题，你看我的代码是这样的   
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

  If RadioButton1.Checked <> True & CheckBox2.Checked <> True Then
  Dim m As String
  m = (Math.Sin(Val(TextBox1)))
  TextBox2.Refresh()
  TextBox2.Text = m
  ElseIf RadioButton1.Checked <> True & CheckBox1.Checked <> True Then
  Dim m As String
  m = (Math.Sin(Val(TextBox1)))
  TextBox2.Refresh()
  TextBox2.Text = m
  ElseIf RadioButton2.Checked <> True & CheckBox2.Checked <> True Then
  Dim m As String
  m = (Math.Exp(Val(TextBox1)))
  TextBox2.Refresh()
  TextBox2.Text = m
  ElseIf RadioButton2.Checked <> True & CheckBox1.Checked <> True Then
  Dim m As String
  TextBox2.Refresh()
  TextBox2.Text = Math.Exp(Val(TextBox1))
  ElseIf RadioButton2.Checked <> True & CheckBox2.Checked <> True Then
  Dim m As String
  m = (Math.Sqrt(Val(TextBox1)))
  TextBox2.Refresh()
  TextBox2.Text = m
  ElseIf RadioButton3.Checked <> True & CheckBox1.Checked <> True Then
  Dim m As String
  m = (Math.Sqrt(Val(TextBox1)))
  TextBox2.Refresh()
  TextBox2.Text = m
  End If
  End Sub
End Class我希望在TextBox里边显示出我计算之后的结果，求解释，我想应该很简单呀，您几句话就可以了，谢谢，好人一生平安。

补充：VB ,  控件