leete un manual basico de basic ya que eso se hace facil con un evento x  con un if y un loadpicture() o x.picture=x.picture

mira si recien comenzas yo te recomiendo este para que vallas acostumbranote al ambiente de elhacker.net aca el tuto

Jajaj Bien pensado

Gracias con lo que me dijiste lo pude solucionar me quedo asi
If Text7 > "0" Then
With Picture1
    .Picture = LoadPicture("E:\1.jpg")
    End With
Else
    With Picture1
    .Picture = LoadPicture("E:\2.jpg")
    End With
End If

otra cosa la desventaja de esto es que las imagenes las carga de un lugar del disco en mi caso "E:" la idea es que sea un programa portable quiero saber si se pueden cargar las imagenes dentro del programa no se picturebox ocultos y cuando llame a cargar que las tome de ahi no se si me explico
gracias 

A ver si me quedo claro me decis que reemplace el codigo mio por el que me escribiste abajo osea

With Picture1
    If val(Text7.text) >= "0" Then
        .Picture = Pic_nega.picture
    Else
        .Picture = Pic_posi.picture
    End If
End With
 

puse esto en lugar de lo que tenia pero me dice que "se requiere un objeto" aparte come le indico que imagen cargar probe cargar la imagen en el cuadro de propiedades de picturebox le modifique la opcion de visible o no pero no me funciona. Gracias de nuevo